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

fix nover, add unit test

db4
Doug Coleman 2009-06-19 12:58:17 -05:00
parent b412754c24
commit c3da7ae785
2 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
basis/generalizations/generalizations-tests.factor
View File

@ -67,3 +67,8 @@ IN: generalizations.tests
[ 1 2 3 [ ] [ ] 3 nbi-curry ] unit-test [ 1 2 3 [ ] [ ] 3 nbi-curry ] unit-test
[ 15 3 ] [ 1 2 3 4 5 [ + + + + ] [ - - - - ] 5 nbi ] unit-test [ 15 3 ] [ 1 2 3 4 5 [ + + + + ] [ - - - - ] 5 nbi ] unit-test
: nover-test ( -- a b c d e f g )
1 2 3 4 3 nover ;
[ 1 2 3 4 1 2 3 ] [ nover-test ] unit-test

2
basis/generalizations/generalizations.factor
View File

@ -40,7 +40,7 @@ MACRO: npick ( n -- )
1- [ dup ] [ '[ _ dip swap ] ] repeat ; 1- [ dup ] [ '[ _ dip swap ] ] repeat ;
MACRO: nover ( n -- ) MACRO: nover ( n -- )
dup '[ _ 1 + npick ] n*quot ; dup 1 + '[ _ npick ] n*quot ;
MACRO: ndup ( n -- ) MACRO: ndup ( n -- )
dup '[ _ npick ] n*quot ; dup '[ _ npick ] n*quot ;