From 6ae44d09faa0ae353c0818705503cad42127d102 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Sun, 3 Mar 2024 15:03:41 +0100
Subject: Even more samples

wtf
---
 samples/rosetta/99_bottles_of_beer.bruijn | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

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