Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
9
Task/Enumerations/Factor/enumerations-1.factor
Normal file
9
Task/Enumerations/Factor/enumerations-1.factor
Normal file
|
|
@ -0,0 +1,9 @@
|
|||
IN: scratchpad { "sun" "mon" "tue" "wed" "thur" "fri" "sat" } <enum>
|
||||
|
||||
--- Data stack:
|
||||
T{ enum f ~array~ }
|
||||
IN: scratchpad [ 1 swap at ] [ keys ] bi
|
||||
|
||||
--- Data stack:
|
||||
"mon"
|
||||
{ 0 1 2 3 4 5 6 }
|
||||
11
Task/Enumerations/Factor/enumerations-2.factor
Normal file
11
Task/Enumerations/Factor/enumerations-2.factor
Normal file
|
|
@ -0,0 +1,11 @@
|
|||
IN: scratchpad USE: alien.syntax
|
||||
IN: scratchpad ENUM: day sun mon { tue 42 } wed thur fri sat ;
|
||||
IN: scratchpad 1 <day>
|
||||
|
||||
--- Data stack:
|
||||
mon
|
||||
IN: scratchpad 42 <day>
|
||||
|
||||
--- Data stack:
|
||||
mon
|
||||
tue
|
||||
Loading…
Add table
Add a link
Reference in a new issue