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

mapped models- arrow multi-model subclasses

Sam Anklesaria 2009-05-09 08:04:46 -05:00
parent 090715f4ed
commit f889a3ec0c
2 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/models/arrow/multi/multi.factor
View File

@ -1,11 +0,0 @@
! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: macros models.arrow models.product fry
generalizations kernel sequences ;
IN: models.arrow.multi
MACRO: <n-arrow> ( int -- quot ) dup
'[ [ _ narray <product> ] dip [ _ firstn ] prepend <arrow> ] ;
: <2arrow> ( a b quot -- arrow ) 2 <n-arrow> ; inline
: <3arrow> ( a b c quot -- arrow ) 3 <n-arrow> ; inline

11
extra/models/mapped/mapped.factor Normal file
View File

@ -0,0 +1,11 @@
! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: macros ui.frp models.product fry
generalizations kernel sequences ;
IN: models.mapped
MACRO: <n-mapped> ( int -- quot ) dup
'[ [ _ narray <product> ] dip [ _ firstn ] prepend <mapped> ] ;
: <2mapped> ( a b quot -- arrow ) 2 <n-mapped> ; inline
: <3mapped> ( a b c quot -- arrow ) 3 <n-mapped> ; inline