queck #5833(2008/02/23 07:38 GMT) [ Other ] Rating0/0=0.00
Factor です。2map で。
1 2 3 4 5 6 7
USING: kernel math sequences ; : diff ( seq -- newseq ) dup 1 tail swap [ - ] 2map ; USE: tools.test [ { -2 3 -3 4 4 -7 4 -1 } ] [ { 3 1 4 1 5 9 2 6 5 } diff ] unit-test
Rating0/0=0.00-0+
[ reply ]
queck
#5833()
[
Other
]
Rating0/0=0.00
Factor です。2map で。
USING: kernel math sequences ; : diff ( seq -- newseq ) dup 1 tail swap [ - ] 2map ; USE: tools.test [ { -2 3 -3 4 4 -7 4 -1 } ] [ { 3 1 4 1 5 9 2 6 5 } diff ] unit-testRating0/0=0.00-0+
[ reply ]