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

remove duplicate count-end from contrib

darcs
erg 2006-11-14 23:41:36 +00:00
parent 3ac35cd78b
commit cdf9ca3397
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
contrib/math/utils.factor
View File

@ -101,6 +101,3 @@ SYMBOL: step-size .01 step-size set ! base on arguments
: nth-rand ( seq -- elem ) [ length random-int ] keep nth ; : nth-rand ( seq -- elem ) [ length random-int ] keep nth ;
: count-end ( seq quot -- count )
>r [ length ] keep r> find-last drop dup -1 = [ 2drop 0 ] [ - 1- ] if ;