steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

pack: use cum-sum0 from math.statistics.

db4
John Benediktsson 2015-07-14 17:49:04 -07:00
parent 6e9dfc86c3
commit 20ff03f5c0
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/pack/pack.factor
View File

@ -1,7 +1,8 @@
! Copyright (C) 2009 Doug Coleman. ! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien.c-types ascii assocs combinators combinators.smart USING: alien.c-types ascii assocs combinators combinators.smart
endian fry io kernel macros math math.vectors sequences strings ; endian fry io kernel macros math math.statistics math.vectors
sequences strings ;
IN: pack IN: pack
GENERIC: >n-byte-array ( obj n -- byte-array ) GENERIC: >n-byte-array ( obj n -- byte-array )
@ -115,7 +116,7 @@ MACRO: pack ( str -- quot )
<PRIVATE <PRIVATE
: start/end ( seq -- seq1 seq2 ) : start/end ( seq -- seq1 seq2 )
[ 0 [ + ] accumulate nip dup ] keep v+ ; inline [ cum-sum0 ] keep v+ ; inline
PRIVATE> PRIVATE>