021arithmetic « cpp - mu - Soul of a tiny new machine. More thorough tests → More comprehensible and rewrite-friendly software → More resilient society.

blob: a5ca095ae11c5b2384c8f382b1b264369e178c40 (plain) (tree)

c8e72563 ^

2199940a ^

1848b18f ^

1848b18f ^

42b31beb ^

8d7839b9 ^

42b31beb ^

c7c822b2 ^

42b31beb ^

c7c822b2 ^

42b31beb ^

e2d57bfe ^

42b31beb ^

c7c822b2 ^

42b31beb ^

8d7839b9 ^

6f5d7864 ^

8d7839b9 ^

57699011 ^

8d7839b9 ^

6f5d7864 ^

8d7839b9 ^

57699011 generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-07-26 11:57:08 +0000

ass="w"> append buf, [ -> ] # and recurse remaining:num, optional-ingredient-found?:bool <- next-ingredient { break-if optional-ingredient-found? # unlimited recursion buf <- to-buffer next, buf return } { break-unless remaining # limited recursion remaining <- subtract remaining, 1 buf <- to-buffer next, buf, remaining return } # past recursion depth; insert ellipses and stop append buf, [...] ] scenario stash-empty-list [ local-scope x:&:list:num <- copy 0 run [ stash x ] trace-should-contain [ app: [] ] ]