RosettaCodeData/Task/Enumerations/Forth/enumerations-2.fth
2023-07-01 13:44:08 -04:00

1 line
46 B
Forth

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