fork download
copy 
  1. let nombreDePesees n =
  2.    let restant = ref n in
  3.  
  4.    while ( !restant > 3) do
  5.       print_int !restant;
  6.    print_newline();
  7.    if !restant - (!restant/3)*3 = 2 then restant:= !restant - ((!restant/3)*2)-1
  8.    else restant:= !restant - ((!restant/3)*2)
  9.    ;
  10.    done;
  11.    print_int !restant;
  12. ;;
  13.  
  14. let _ =
  15.     let n = read_int () in
  16.  
  17.     nombreDePesees n;
Success #stdin #stdout 0s 2780KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
https://ideone.com/oJRuM
language:
OCaml (ocamlopt 4.05.0)
created:
13 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!