fork download
copy 
  1. go :-
  2.  repeat,
  3.  print('Enter a number '),
  4.  get0(Num), nl,
  5.  ( 
  6.   ((Num>58), print('You did not enter a number'),nl,fail)
  7.     ;
  8.      (print('Do it again'), nl, fail)
  9. 	).
Success #stdin #stdout 0.02s 68352KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
GNU Prolog 1.3.1
By Daniel Diaz
Copyright (C) 1999-2009 Daniel Diaz
https://ideone.com/X47v1
language:
Prolog (gprolog 1.4.5)
created:
14 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!