RosettaCodeData/Task/First-class-functions/Min/first-class-functions.min
2023-07-01 13:44:08 -04:00

8 lines
134 B
Text

('sin 'cos (3 pow)) =A
('asin 'acos (1 3 / pow)) =B
(A bool) (
0.5 A first B first concat -> puts!
A rest #A
B rest #B
) while