Revision as of 08:11, 25 August 2021 (view source) GordonCharlton (talk \| contribs) (Added Quackery.) ← Older edit		Revision as of 15:09, 25 August 2021 (view source) GordonCharlton (talk \| contribs) (→‎{{header\|Quackery}}: removed redundant sorts) Newer edit →
Line 6,361: <lang Quackery> $ "rosetta/unixdict.txt" sharefile drop nest$ [] ~~over~~swap witheach ~~[ sort nested join ]~~ [ dup sort$ nested swap nested join [ dup [] [] rot ▼ nested join ] sortwith [ 0 peek swap 0 peek $< ] dup ▲ [ dup [] ' [ [ ] ] rot witheach [ tuck =0 ifpeek [swap ~~tuck~~0 ~~nested~~peek ~~join~~= ~~swap ]~~if ] [ tuck nested join swap ] ] drop dup [] != while nip again ] drop witheach [ over witheach [ 2dup ~~sort~~0 =peek ~~iff~~swap [0 ~~echo$~~peek sp= ~~] else drop ]~~iff [ 1 peek echo$ sp ] else drop ] drop cr ] drop</lang> Line 6,383 ⟶ 6,390: alger glare lager large regal elan lane lean lena neal evil levi live veil vile </pre>

Anagrams: Difference between revisions

Anagrams (view source)