RosettaCodeData/Task/Binary-digits/Prolog/binary-digits.pro

3 lines
79 B
Prolog

binary(X) :- format('~2r~n', [X]).
main :- maplist(binary, [5,50,9000]), halt.