050_write.subx « subx - mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

blob: 0d6b8152b0b45f2d40bf3039addd38862b94f76e (plain) (tree)

ef31035a ^

ca5a3fcb ^

57628c0e ^

ee9a9237 ^

4224ec81 ^

8188bbbc ^

6030d7e2 ^

5a9795bb ^

6030d7e2 ^

80b6f47e ^

6528a089 ^

ee9a9237 ^

6030d7e2 ^

ee9a9237 ^

6030d7e2 ^

ee9a9237 ^

dd9ba09a ^

ee9a9237 ^

dd9ba09a ^

6030d7e2 ^

ee9a9237 ^

dd9ba09a ^

6030d7e2 ^

ee9a9237 ^

6030d7e2 ^

e59a74ab ^

cf02c20b ^

ee9a9237 ^

6030d7e2 ^

ee9a9237 ^

6030d7e2 ^

4224ec81 ^

e59a74ab ^

ee9a9237 ^

4
5
6

8
9

16
17

33
34

35
36
37

45
46
47

generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-12-03 13:44:38 +0000

- --> </script> </head> <body> <pre id='vimCodeElement'> # example program: compute the factorial of 5 recipe main [ local-scope x:number <- factorial 5:literal $print [result: ], x:number, [ ] ] recipe factorial [ local-scope n:number <- next-ingredient { # if n=0 return 1 zero?:boolean <- equal n:number, 0:literal break-unless zero?:boolean reply 1:literal } # return n * factorial(n-1) x:number <- subtract n:number, 1:literal subresult:number <- factorial x:number result:number <- multiply subresult:number, n:number reply result:number ] # unit test scenario factorial-test [ run [ 1:number <- factorial 5:literal ] memory-should-contain [ 1 <- 120 ] ] </pre> </body> </html>