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

combinators.extras: Add twice, thrice words.

db4
Doug Coleman 2013-03-07 14:11:01 -08:00
parent f9c96628c0
commit 85a3966a9d
3 changed files with 22 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
extra/combinators/extras/authors.txt Normal file
View File

@ -0,0 +1 @@
Doug Coleman

13
extra/combinators/extras/extras-tests.factor Normal file
View File

@ -0,0 +1,13 @@
! Copyright (C) 2013 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: tools.test combinators.extras sequences ;
IN: combinators.extras.tests
{ "a b" }
[ "a" "b" [ " " glue ] once ] unit-test
{ "a b c" }
[ "a" "b" "c" [ " " glue ] twice ] unit-test
{ "a b c d" }
[ "a" "b" "c" "d" [ " " glue ] thrice ] unit-test

8
extra/combinators/extras/extras.factor Normal file
View File

@ -0,0 +1,8 @@
! Copyright (C) 2013 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel ;
IN: combinators.extras
: once ( quot -- ) call ; inline
: twice ( quot -- ) dup [ call ] dip call ; inline
: thrice ( quot -- ) dup dup [ call ] 2dip [ call ] dip call ; inline