RosettaCodeData/Task/Bifid-cipher/Uiua/bifid-cipher-1.uiua
2024-07-13 15:19:22 -07:00

9 lines
314 B
Text

S ← "ABCDEFGHIKLMNOPQRSTUVWXYZ"
P ← ↯⊟.√⧻.S
Prep ← ▽∊:S.∧⍜⊡⋅@I⊚⌕@J.⌵
Bifid ← setinv(
⊡:⟜(↯∞_2/⊂⇌⍉≡(⊢⊚⌕)Prep:¤)P
| ⊡:⟜(⍉⇌↯2_∞/⊂≡(⊢⊚⌕):¤)P
)
°Bifid.Bifid. "This is it"
°Bifid.Bifid. "The invasion will start on the first of January"