PasteRack.org | ||
Paste # 53649 | ||
2021-01-18 05:42:25 | ||
Fork as a new paste. | ||
Paste viewed 174 times. | ||
Tweet | ||
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 ...