langs a-z

Task/Integer-comparison/Oz/integer-comparison.oz

@@ -0,0 +1,28 @@
+functor
+import
+  Application(exit)
+  Open(text file)
+define
+
+Txt = class from Open.file Open.text end
+Stdout = {New Open.file init(name:stdout)}
+Stdin  = {New Txt init(name:stdin)}
+
+proc{Print Msg}
+  {Stdout write(vs:Msg)}
+end
+
+fun{GetInt Prompt}
+  {Print Prompt}
+  {StringToInt {Stdin getS($)}}
+end
+
+Int1 = {GetInt "Enter 1st Integer:"}
+Int2 = {GetInt "Enter 2nd Integer:"}
+
+if(Int1  < Int2) then {Print Int1#" less than "#Int2} end
+if(Int1  > Int2) then {Print Int1#" greater than "#Int2} end
+if(Int1 == Int2) then {Print Int1#" equal to "#Int2} end
+
+{Application.exit 0}
+end