From 6e1eeeebfb453fa7c871869c19375ce60fbd7413 Mon Sep 17 00:00:00 2001 From: Kartik Agaram Date: Sat, 27 Jul 2019 16:01:55 -0700 Subject: 5485 - promote SubX to top-level --- archive/2.vm/continuation5.mu | 49 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 49 insertions(+) create mode 100644 archive/2.vm/continuation5.mu (limited to 'archive/2.vm/continuation5.mu') diff --git a/archive/2.vm/continuation5.mu b/archive/2.vm/continuation5.mu new file mode 100644 index 00000000..295cb9c9 --- /dev/null +++ b/archive/2.vm/continuation5.mu @@ -0,0 +1,49 @@ +# Example program showing that a 'paused' continuation can be 'resumed' with +# inputs. +# +# Print out a list of numbers, first adding 0 to the first, 1 to the second, 2 +# to the third, and so on. +# +# To run: +# $ git clone https://github.com/akkartik/mu +# $ cd mu +# $ ./mu continuation5.mu +# +# Expected output: +# 1 +# 3 +# 5 + +def main [ + local-scope + l:&:list:num <- copy null + l <- push 3, l + l <- push 2, l + l <- push 1, l + k:continuation, x:num, done?:bool <- call-with-continuation-mark 100/mark, create-yielder, l + a:num <- copy 1 + { + break-if done? + $print x 10/newline + k, x:num, done?:bool <- call k, a # resume; x = a + next l value + a <- add a, 1 + loop + } +] + +def create-yielder l:&:list:num -> n:num, done?:bool [ + local-scope + load-inputs + a:num <- copy 0 + { + done? <- equal l, null + break-if done? + n <- first l + l <- rest l + n <- add n, a + a <- return-continuation-until-mark 100/mark, n, done? # pause/resume + loop + } + return-continuation-until-mark 100/mark, -1, done? + assert false, [called too many times, ran out of continuations to return] +] -- cgit 1.4.1-2-gfad0 =2b88e2f1bffca2800b521214df6009da673a0835'>diff stats
path: root/tests/unittests/test_parser.c
blob: faefc9c7603a9969dd366d5fcb6a777e30e6963f (plain) (tree)
1
2
3
4
5
6
7
8
9