From 14e38ce378236cf54924b58396168c1e94f8e6b2 Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Mon, 25 Mar 2024 18:59:03 +0100
Subject: Improved samples by adding links to problems

---
 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