diff options
| author | Marvin Borner | 2024-03-02 23:12:34 +0100 |
|---|---|---|
| committer | Marvin Borner | 2024-03-02 23:12:34 +0100 |
| commit | 03155d6e515c76d5ab59f814592484c849313130 (patch) | |
| tree | 278ef66ae5a9cf37dfad915094cd3f81ed378d66 /samples/rosetta/99_bottles_of_beer.bruijn | |
| parent | ca3907431bfde5aa0715945222ce777d72e6b411 (diff) | |
Bottles of beer
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 |