PasteRack.org
Paste # 53649
2021-01-18 05:42:25

Fork as a new paste.

Paste viewed 174 times.


Embed:

#lang plai-typed
(define c (+ 0 17))
(define f (+ c 7))
(define b (+ c 8))

(define bNextYear (+ b 1))
(define fNextYear (+ f 1))
;(define cNextYear (+ c 1))
;(define cNextYearNotAging (+ c 0))

(define bTwoYearsFromNow (+ b 2))
(define fTwoYearsFromNow (+ f 2))
(define cTwoYearsFromNow (+ c 2))

'c= c
'f= f
'b= b

'c= c
'fNextYear= fNextYear
'bNextYear= bNextYear
;'cNextYear= cNextYear

(define nextYearTotalStd (* c (* fNextYear bNextYear)))
'nextYearTotalStd= nextYearTotalStd

(define twoYearsFromNowTotalStd (* cTwoYearsFromNow (* fTwoYearsFromNow bTwoYearsFromNow)))
'twoYearsFromNowTotalStd= twoYearsFromNowTotalStd

(define grandTotalStd (+ nextYearTotalStd twoYearsFromNowTotalStd))
'===============
'grandTotalStd= grandTotalStd
'grandTotalStdAve=
(/ grandTotalStd 3)
'ZeroModulo=
(= 0 (modulo grandTotalStd 3))
'===============

(define nextYearTotalNotAging (* c (* fNextYear bNextYear)))
'nextYearTotalNotAging= nextYearTotalNotAging

(define twoYearsFromNowTotalNotAging (* c (* fTwoYearsFromNow bTwoYearsFromNow)))
'twoYearsFromNowTotalNotAging= twoYearsFromNowTotalNotAging

(define grandTotalNotAging (+ nextYearTotalNotAging twoYearsFromNowTotalNotAging))
'===============
'grandTotalNotAging= grandTotalNotAging
'===============

'SUPERGRANDTOTAL=
(define SUPERGRANDTOTAL (- grandTotalStd grandTotalNotAging))
(define ok (= 1382 SUPERGRANDTOTAL))
SUPERGRANDTOTAL
ok

(define (computeAge [c : number][i : number][f : number]) : number
  ;((+ c (+ i (+ c )))))
  (+ (+ c i) (+ (+ c f) (+ c 8))))

(computeAge 2 1 0)
(computeAge 2 0 1)

(for ([i '(1 2 3)])
    (display i))


; (- )

; (+ c (+ c 9))
; (+ 1 (+ c x))

=>

standard-module-name-resolver: collection not found
  for module path: plai-typed/lang/reader
  collection: "plai-typed/lang"
  in collection directories:
   /home/pasterack/.racket/7.3/collects
   /home/pasterack/racket73/collects
   ... [166 additional linked and package directories]
  context...:
   show-collection-err
   standard-module-name-resolver
   do-dynamic-require5
   read-syntax3
   /home/pasterack/racket73/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:112:0: get-tokens
   /home/pasterack/racket73/share/pkgs/scribble-lib/scribble/private/manual-code.rkt:56:0: typeset-code15
   "/home/pasterack/pasterack/tmp/53649/53649code.scrbl": [running body]
   temp37_0
   for-loop
   run-module-instance!125
   do-dynamic-require5
   loop
   ...cket/cmdline.rkt:191:51
   "/home/pasterack/racket73/share/pkgs/scribble-lib/scribble/run.rkt": [running body]
   temp37_0
   for-loop
   ...