RosettaCodeData/Task/Catamorphism/Tailspin/catamorphism-1.tailspin
2023-07-01 13:44:08 -04:00

6 lines
237 B
Text

[1..5] -> \(@: $(1); $(2..last)... -> @: $@ + $; $@!\) -> '$;
' -> !OUT::write
[1..5] -> \(@: $(1); $(2..last)... -> @: $@ - $; $@!\) -> '$;
' -> !OUT::write
[1..5] -> \(@: $(1); $(2..last)... -> @: $@ * $; $@!\) -> '$;
' -> !OUT::write