diff options
Diffstat (limited to 'samples/rosetta/99_bottles_of_beer.bruijn')
| -rw-r--r-- | samples/rosetta/99_bottles_of_beer.bruijn | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/samples/rosetta/99_bottles_of_beer.bruijn b/samples/rosetta/99_bottles_of_beer.bruijn new file mode 100644 index 0000000..7ff3371 --- /dev/null +++ b/samples/rosetta/99_bottles_of_beer.bruijn @@ -0,0 +1,12 @@ +:import std/Combinator . +:import std/Number . +:import std/String . + +main y [[rec]] (+99) + rec =?0 case-end case-rec + case-rec n ++ t1 ++ n ++ t2 ++ t3 ++ n ++ t1 ++ "\n" ++ (1 --0) + n number→string 0 + t1 " bottles of beer on the wall\n" + t2 " bottles of beer\n" + t3 "Take one down, pass it around\n" + case-end empty |