33 lines
1.1 KiB
OCaml
33 lines
1.1 KiB
OCaml
let rec tak (x, y, z as tuple) =
|
|
if x > y then tak(tak (x-1, y, z), tak (y-1, z, x), tak (z-1, x, y))
|
|
else z
|
|
|
|
let break_handler _ =
|
|
print_string "Thank you for pressing ctrl-C."; print_newline();
|
|
print_string "Allocating a bit..."; flush stdout;
|
|
tak(18,12,6); print_string "done."; print_newline()
|
|
|
|
let stop_handler _ =
|
|
print_string "Thank you for pressing ctrl-Z."; print_newline();
|
|
print_string "Now raising an exception..."; print_newline();
|
|
raise Exit
|
|
|
|
let _ =
|
|
Sys.signal Sys.sigint (Sys.Signal_handle break_handler);
|
|
Sys.signal Sys.sigtstp (Sys.Signal_handle stop_handler);
|
|
begin try
|
|
print_string "Computing like crazy..."; print_newline();
|
|
for i = 1 to 100 do tak(18,12,6) done;
|
|
print_string "Reading on input..."; print_newline();
|
|
for i = 1 to 5 do
|
|
try
|
|
let s = read_line () in
|
|
print_string ">> "; print_string s; print_newline()
|
|
with Exit ->
|
|
print_string "Got Exit, continuing."; print_newline()
|
|
done
|
|
with Exit ->
|
|
print_string "Got Exit, exiting."; print_newline()
|
|
end;
|
|
exit 0
|