queck #5689(2008/02/05 14:21 GMT) [ Other ] Rating0/0=0.00
Factor です。
1 2 3 4 5 6 7 8
USING: kernel sequences combinators.lib math ; : uniq-only ( seq -- newseq ) dup [ [ = ] curry ] swap [ slip swap count 1 = ] 2curry subset ; ! example USE: prettyprint { 3 1 4 1 5 9 2 6 5 } uniq-only .
Rating0/0=0.00-0+
[ reply ]
queck
#5689()
[
Other
]
Rating0/0=0.00
Factor です。
USING: kernel sequences combinators.lib math ; : uniq-only ( seq -- newseq ) dup [ [ = ] curry ] swap [ slip swap count 1 = ] 2curry subset ; ! example USE: prettyprint { 3 1 4 1 5 9 2 6 5 } uniq-only .Rating0/0=0.00-0+
[ reply ]