langs a-z

Task/Mutual-recursion/SNOBOL4/mutual-recursion.sno

@@ -0,0 +1,15 @@
+        define('f(n)') :(f_end)
+f       f = eq(n,0) 1 :s(return)
+        f = n - m(f(n - 1)) :(return)
+f_end
+
+        define('m(n)') :(m_end)
+m       m = eq(n,0) 0 :s(return)
+        m = n - f(m(n - 1)) :(return)
+m_end
+
+*       # Test and display
+L1      s1 = s1 m(i) ' ' ; s2 = s2 f(i) ' '
+        i = le(i,25) i + 1 :s(L1)
+        output = 'M: ' s1; output = 'F: ' s2
+end