RosettaCodeData/Task/Arithmetic-Integer/Picat/arithmetic-integer.picat

8 lines
167 B
Plaintext

main =>
X = read_int(),
Y = read_int(),
foreach (Op in [+,-,*,div,rem])
R = apply(Op,X,Y),
printf("%d %w %d = %d\n", X, Op, Y, R)
end.