gitweb on Svarog
projekti pod git sistemom za održavanje verzija -- projects under the git version control systemdiff --git a/samples/alpha-mj-exp/gcd-rek-input.mj b/samples/alpha-mj-exp/gcd-rek-input.mj
--- /dev/null
@@ -0,0 +1,24 @@
+program rekgcdinput{
+
+ int gcd(int a, int b)
+ {
+ if (a>b)
+ return gcd(a-b,b);
+ if (a<b)
+ return gcd(a,b-a);
+ return a;
+ }
+
+ void main()
+ int a;
+ int b;
+ {
+ print('a');
+ print('?');
+ read(a);
+ print('b');
+ print('?');
+ read(b);
+ print(gcd(a,b),3);
+ }
+}
\ No newline at end of file