From e4dc5918cdfc231bee29ca5808e37ee23f33712e Mon Sep 17 00:00:00 2001
From: Marvin Borner
Date: Sun, 10 Mar 2024 14:18:17 +0100
Subject: Samples and std additions

---
 samples/rosetta/de_bruijn_sequence.bruijn | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100644 samples/rosetta/de_bruijn_sequence.bruijn

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

diff --git a/samples/rosetta/de_bruijn_sequence.bruijn b/samples/rosetta/de_bruijn_sequence.bruijn
new file mode 100644
index 0000000..1012223
--- /dev/null
+++ b/samples/rosetta/de_bruijn_sequence.bruijn
@@ -0,0 +1,15 @@
+# TODO: Too slow to be published. Probably needs Maps/Sets/Vectors/sth.
+
+:import std/Combinator .
+:import std/Char C
+:import std/Math .
+:import std/List .
+
+# very slow but elegant
+de-bruijn y [[[C.?infix? (take 0 1) ~1 case-end case-rec]]]
+	case-rec max-by (compare ⋔ length) ([3 (0 : 2) 1] <$> (C.?nub 1))
+	case-end drop 0 1
+
+:test (de-bruijn "abcd" (+2)) ("dccaadbbacbdabcd")
+
+main [[0]]
-- 
cgit v1.2.3