Guest User

Untitled

a guest
Jan 21st, 2018
124
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Oz 0.26 KB | None | 0 0
  1. declare
  2. fun {Prime I}
  3.    local
  4.       fun {Help I AD}
  5.      if I<1 then false
  6.      elseif AD<2 then true
  7.      elseif I mod AD == 0 then false
  8.      else {Help I AD-1}
  9.      end
  10.       end
  11.    in {Help I I-1}
  12.    end
  13. end
  14.  
  15. {Show {Prime 0}}
  16. {Show {Prime 12}}
  17. {Show {Prime 31}}
Add Comment
Please, Sign In to add comment