chiark / gitweb /
25a done main
authorBen Harris <bjh21@bjh21.me.uk>
Fri, 14 Jun 2024 23:34:48 +0000 (00:34 +0100)
committerBen Harris <bjh21@bjh21.me.uk>
Fri, 14 Jun 2024 23:34:48 +0000 (00:34 +0100)
There is no 25b.

25/25a.bqn

index 6b27ef81f1c3828ca4e3efd00a92df0524924f10..18d713e870016badb8895a479dc297b700684b7f 100644 (file)
@@ -1,2 +1,6 @@
-UnSnafu←{ +´(¯2+"=-012"⊐𝕩)×({5⋆𝕩}¨⌽↕≠𝕩) }
-•Show +´UnSnafu¨•file.Lines ⊑•args
+Snafu←{
+  𝕊0: "";
+  𝕊𝕩: h←⌊(2+𝕩)÷5 ⋄ (𝕊 h) ∾ (2+𝕩-h×5)⊏"=-012";
+  𝕊⁼𝕩: +´(¯2+"=-012"⊐𝕩)×({5⋆𝕩}¨⌽↕≠𝕩)
+}
+•Show Snafu+´Snafu⁼¨•file.Lines ⊑•args