Jump to content

Ordered words: Difference between revisions

Added Quackery.
(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}}==
1,493

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.