June 2018 Update

Task/Enumerations/Factor/enumerations-1.factor

@@ -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 }

Task/Enumerations/Factor/enumerations-2.factor

@@ -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

Task/Enumerations/Shen/enumerations.shen

@@ -0,0 +1,7 @@
+(tc +)
+
+(datatype fruit
+
+  if (element? Fruit [apple banana cherry])
+  _____________
+  Fruit : fruit;)