RosettaCodeData/Task/Enumerations/Forth/enumerations-2.fth

2 lines
46 B
Forth

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