RosettaCodeData/Task/A+B/Oforth/a+b.fth
2023-07-01 13:44:08 -04:00

3 lines
84 B
Forth

import: mapping
System.Console accept words map( #>integer) reduce( #+ ) printcr .