code
|
text
Sortsol
Noah Syrkis
January 1, 2025
I ← ↯ ⊂ . √ ⧻ . > 0.5 [⍥⚂ ⁿ 2] # init
K ← ◌ : + + + ≡⇌ ↻ 1 . : ↻ 1 ⍉ . : ↻ 1 ≡⇌ . : ↻ 1 . # conv
C ← ◿ 2 + < 2 : > 3 . # cond
S ← C K # step
# S I 10
References