From 03155d6e515c76d5ab59f814592484c849313130 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Sat, 2 Mar 2024 23:12:34 +0100
Subject: Bottles of beer

---
 samples/rosetta/99_bottles_of_beer.bruijn | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 samples/rosetta/99_bottles_of_beer.bruijn

(limited to 'samples/rosetta/99_bottles_of_beer.bruijn')

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
-- 
cgit v1.2.3