RosettaCodeData/Task/Ackermann-function/ZED/ackermann-function.zed

30 lines
245 B
Zed
Raw Permalink Normal View History

2025-02-27 18:35:13 -05:00
(a) m n
M ZERO
2023-07-01 11:58:00 -04:00
(=) m 0
(add1) n
2025-02-27 18:35:13 -05:00
(a) m n
N ZERO
2023-07-01 11:58:00 -04:00
(=) n 0
2025-02-27 18:35:13 -05:00
(a) (sub1) m 1
2023-07-01 11:58:00 -04:00
2025-02-27 18:35:13 -05:00
(a) m n
DEFAULT
2023-07-01 11:58:00 -04:00
#true
2025-02-27 18:35:13 -05:00
(a) (sub1) m (a) m (sub1) n
2023-07-01 11:58:00 -04:00
(add1) n
2025-02-27 18:35:13 -05:00
=========
2023-07-01 11:58:00 -04:00
#true
(003) "+" n 1
(sub1) n
2025-02-27 18:35:13 -05:00
=========
2023-07-01 11:58:00 -04:00
#true
(003) "-" n 1
(=) n1 n2
2025-02-27 18:35:13 -05:00
=========
2023-07-01 11:58:00 -04:00
#true
(003) "=" n1 n2