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/fizzbuzz.bruijn | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 samples/rosetta/fizzbuzz.bruijn

(limited to 'samples/rosetta/fizzbuzz.bruijn')

diff --git a/samples/rosetta/fizzbuzz.bruijn b/samples/rosetta/fizzbuzz.bruijn
new file mode 100644
index 0000000..7f61704
--- /dev/null
+++ b/samples/rosetta/fizzbuzz.bruijn
@@ -0,0 +1,11 @@
+:import std/Combinator .
+:import std/String .
+:import std/Number .
+
+main [y [[0 =? (+101) case-end case-rec]] (+1)]
+	case-rec str ++ "\n" ++ (1 ++0)
+		str fizzbuzz "FizzBuzz" (fizz "Fizz" (buzz "Buzz" (number→string 0)))
+			fizz =?(0 % (+3))
+			buzz =?(0 % (+5))
+			fizzbuzz fizz buzz fizz
+	case-end empty
-- 
cgit v1.2.3