From 5e5069c5228f2cd39de38ace9134f57293cc7e5d Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Sun, 12 Mar 2023 00:04:55 +0100
Subject: Fun

---
 samples/fun/thue-morse.bruijn | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 samples/fun/thue-morse.bruijn

(limited to 'samples/fun/thue-morse.bruijn')

diff --git a/samples/fun/thue-morse.bruijn b/samples/fun/thue-morse.bruijn
new file mode 100644
index 0000000..3f40e01
--- /dev/null
+++ b/samples/fun/thue-morse.bruijn
@@ -0,0 +1,10 @@
+# printf 10 | bruijn thue-morse.bruijn
+# using tromp's solution, prints thue morse sequence
+
+:import std/Combinator .
+:import std/Logic .
+:import std/String .
+
+main [take (number! 0) tm]
+	xpd z [[[[0 2 [0 [[5 0 1]] (2 4)]]]]]
+	tm z [xpd true (0 false)]
-- 
cgit v1.2.3