unbreak singleton?

db4
Doug Coleman 2008-01-13 10:33:36 -10:00
parent a6d0c33a94
commit c27d17e1ec
1 changed files with 1 additions and 1 deletions

View File

@ -59,7 +59,7 @@ IN: sequences.lib
] { } make ;
: singleton? ( seq -- ? )
length 1 = ; foldable
length 1 = ;
: delete-random ( seq -- value )
[ length random ] keep [ nth ] 2keep delete-nth ;