Ordered words: Difference between revisions
Added Quackery.
Alextretyak (talk | contribs) (Added 11l) |
(Added Quackery.) |
||
Line 3,504:
glossy
knotty</pre>
=={{header|Quackery}}==
<lang Quackery> [ - -1 1 clamp 1+ ]'[ swap peek do ] is <=> ( n n --> )
[ true swap
behead swap witheach
[ tuck > iff
[ dip not conclude ] ]
drop ] is ordered ( [ --> b )
[ stack ] is largest ( [ --> s )
[ 1 largest put
[] swap witheach
[ dup size
largest share <=>
[ drop
[ dup ordered iff
[ nested join ]
else drop ]
[ dup ordered iff
[ dup size largest replace
nip nested ]
else drop ] ] ]
largest release ] is task ( [ --> [ )
$ 'unixdict.txt' sharefile drop nest$
task
witheach [ echo$ sp ]</lang>
{{out}}
<pre>abbott accent accept access accost almost bellow billow biopsy chilly choosy choppy effort floppy glossy knotty </pre>
=={{header|R}}==
|