RosettaCodeData/Task/Enumerations/Forth/enumerations-2.fth
Ingy döt Net 764da6cbbb CDE
2013-04-10 16:57:12 -07:00

1 line
46 B
Forth

: ENUM ( n -<name>- n+1 ) DUP CONSTANT 1+ ;