diff options
| author | Marvin Borner | 2024-03-03 15:03:41 +0100 |
|---|---|---|
| committer | Marvin Borner | 2024-03-03 22:29:24 +0100 |
| commit | 6ae44d09faa0ae353c0818705503cad42127d102 (patch) | |
| tree | a923d00d520f85a608f51416184e5b3b6f178549 /samples/rosetta/99_bottles_of_beer.bruijn | |
| parent | 03155d6e515c76d5ab59f814592484c849313130 (diff) | |
Even more samples
wtf
Diffstat (limited to 'samples/rosetta/99_bottles_of_beer.bruijn')
| -rw-r--r-- | samples/rosetta/99_bottles_of_beer.bruijn | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/samples/rosetta/99_bottles_of_beer.bruijn b/samples/rosetta/99_bottles_of_beer.bruijn index 7ff3371..afaffdd 100644 --- a/samples/rosetta/99_bottles_of_beer.bruijn +++ b/samples/rosetta/99_bottles_of_beer.bruijn @@ -2,11 +2,10 @@ :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 +main [y [[=?0 case-end case-rec]] (+99)] + 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 |