Prime words: Difference between revisions
Content added Content deleted
m (→{{header|Wren}}: Minor tidy) |
(Added Uiua solution) |
||
Line 1,690: | Line 1,690: | ||
meg |
meg |
||
q |
q |
||
</pre> |
|||
=={{header|Uiua}}== |
|||
{{works with|Uiua|0.11.0-dev.1}} |
|||
<syntaxhighlight lang="Uiua"> |
|||
⊜□ ≠@\n. &fras "unixdict.txt" |
|||
Ps ← ⇌◌⍢(▽≠0◿⊢..⟜(⊂⊢)|>0⧻.):[]+2⇡256 # Build primes |
|||
Pc ← ▽:⟜(∊-@\0)⊂¯.+@a⇡26Ps # Test A-Za-z for primal ASCII codes |
|||
▽:⟜(≡(/×◇∊)⊙¤):Pc |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
{"a" "aaa" "age" "agee" "ak" "am" "ama" "e" "egg" "eke" "em" "emma" "g" "ga" "gag" "gage" "gam" "game" "gamma" "ge" "gee" "gem" "gemma" "gm" "k" "keg" "m" "ma" "mae" "magma" "make" "mamma" "me" "meek" "meg" "q"} |
|||
</pre> |
</pre> |
||