make singleton? foldable
parent
229576feec
commit
a592f3a37b
|
@ -59,7 +59,7 @@ IN: sequences.lib
|
||||||
] { } make ;
|
] { } make ;
|
||||||
|
|
||||||
: singleton? ( seq -- ? )
|
: singleton? ( seq -- ? )
|
||||||
length 1 = ;
|
length 1 = ; foldable
|
||||||
|
|
||||||
: delete-random ( seq -- value )
|
: delete-random ( seq -- value )
|
||||||
[ length random ] keep [ nth ] 2keep delete-nth ;
|
[ length random ] keep [ nth ] 2keep delete-nth ;
|
||||||
|
|
Loading…
Reference in New Issue