Ideone.com | Online Ocaml Compiler & Debugging Tool

Computer geeks!

Recent public codes are listed below. You can filter them by the following programming languages:

codes: 7611 page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

7 days 4 hours ago view (lines: 1, size: 13, inputs: 1) Ocaml Success

1
let n = 1 + 1

7 days 4 hours ago view (lines: 1, size: 5, inputs: 1) Ocaml Success

1
1 + 1

7 days 12 hours ago view (lines: 4, size: 51, inputs: 1) Ocaml Compilation error

1
2
3
4
let x = ref 0 
let f () = x := !x + 1; !x 
 
print f

7 days 12 hours ago view (lines: 3, size: 43, inputs: 1) Ocaml Success

1
2
let x = ref 0 
let f () = x := !x + 1; !x

7 days 12 hours ago view (lines: 6, size: 99, inputs: 1) Ocaml Compilation error

1
2
3
4
5
6
let x = ref 0 
let f () = x := !x + 1; !x 
 
let a = f () in 
let b = f () in 
  print_int ( a - b )

7 days 12 hours ago view (lines: 5, size: 67, inputs: 1) Ocaml Compilation error

1
2
3
4
5
let x = ref 0 
let f () = x := !x + 1; !x 
 
let a = f()
print_int a

7 days 12 hours ago view (lines: 5, size: 63, inputs: 1) Ocaml Compilation error

1
2
3
4
5
let x = ref 0 
let f () = x := !x + 1; !x 
 
let a = f()
print a

7 days 12 hours ago view (lines: 3, size: 43, inputs: 1) Ocaml Success

1
2
let x = ref 0 
let f () = x := !x + 1; !x

7 days 12 hours ago view (lines: 3, size: 43, inputs: 1) Ocaml Success

1
2
let x = ref 0 
let f () = x := !x + 1; !x

7 days 12 hours ago view (lines: 6, size: 86, inputs: 1) Ocaml Compilation error

1
2
3
4
5
6
let x = ref 0 
let f () = x := !x + 1; !x 
 
let a = f () in 
let b = f () in 
  a - b

7 days 12 hours ago view (lines: 10, size: 171, inputs: 1) Ocaml Compilation error

1
2
3
4
5
6
7
8
9
let x = ref 0 
let f () = lazy (x := !x + 1; !x) 
let (!$) x = Lazy.force x 
 
let a = f ()  in 
let b = f ()  in 
print_int (!$ b); 
print_int (!$ a); 
(!$ a) - (!$ b) ;;

7 days 12 hours ago view (lines: 10, size: 169, inputs: 1) Ocaml Compilation error

1
2
3
4
5
6
7
8
9
let x = ref 0 
let f () = lazy (x := !x + 1; !x) 
let (!$) x = Lazy.force x 
 
let a = f ()  in 
let b = f ()  in 
print_int (!$ b); 
print_int (!$ a); 
(!$ a) - (!$ b)

7 days 12 hours ago view (lines: 10, size: 167, inputs: 1) Ocaml Compilation error

1
2
3
4
5
6
7
8
9
let x = ref 0 
let f () = lazy (x := !x + 1; !x) 
let (!$) x = Lazy.force x 
 
let a = f () in 
let b = f () in 
print_int (!$ b); 
print_int (!$ a); 
(!$ a) - (!$ b)

7 days 12 hours ago view (lines: 10, size: 167, inputs: 1) Ocaml Compilation error

1
2
3
4
5
6
7
8
9
let x = ref 0 
let f () = lazy (x := !x + 1; !x) 
let (!$) x = Lazy.force x 
 
let a = f () in 
let b = f () in 
print_int (!$ b); 
print_int (!$ a); 
(!$ a) - (!$ b)

7 days 12 hours ago view (lines: 10, size: 180, inputs: 1) Ocaml Compilation error

1
2
3
4
5
6
7
8
9
let x = ref 0 
let f () = lazy (x := !x + 1; !x) 
let (!$) x = Lazy.force x 
 
let a = f () in 
        let b = f () in 
                print_int (!$ b); 
                print_int (!$ a); 
                (!$ a) - (!$ b)

7 days 12 hours ago view (lines: 10, size: 180, inputs: 1) Ocaml Compilation error

1
2
3
4
5
6
7
8
9
let x = ref 0 
let f () = lazy (x := !x + 1; !x) 
let (!$) x = Lazy.force x 
 
let a = f () in 
        let b = f () in 
                print_int (!$ b); 
                print_int (!$ a); 
                (!$ a) - (!$ b)

7 days 12 hours ago view (lines: 10, size: 173, inputs: 1) Ocaml Compilation error

1
2
3
4
5
6
7
8
9
let x = ref 0 
let f () = lazy (x := !x + 1; !x) 
let (!$) x = Lazy.force x 
 
let a = f () in 
let b = f () in 
  print_int (!$ b); 
  print_int (!$ a); 
  (!$ a) - (!$ b)

7 days 12 hours ago view (lines: 10, size: 173, inputs: 1) Ocaml Compilation error

1
2
3
4
5
6
7
8
9
let x = ref 0 
let f () = lazy (x := !x + 1; !x) 
let (!$) x = Lazy.force x 
 
let a = f () in 
let b = f () in 
  print_int (!$ b); 
  print_int (!$ a); 
  (!$ a) - (!$ b)

8 days 6 hours ago view (lines: 82, size: 5309, inputs: 1) Ocaml Compilation error

1
2
3
4
5
6
7
8
9
                                                                         (*O/*_/
Cu  #%* )pop mark/CuG 4 def/# 2 def%%%%@@P[TX---P\P_SXPY!Ex(mx2ex("SX!Ex4P)Ex=
CuG #%*                                                                  *+Ex=
CuG #%*------------------------------------------------------------------*+Ex=
CuG #%*   POLYGLOT - a program in eight languages      15 February 1991  *+Ex=
CuG #%*   10th Anniversary Edition                      1 December 2001  *+Ex=
CuG #%*                                                                  *+Ex=
CuG #%*   Written by Kevin Bungard, Peter Lisle, and Chris Tham          *+Ex=
CuG #%*                                                                  *+Ex=
 ...

9 days 17 hours ago view (lines: 890, size: 24372, inputs: 1) Ocaml Compilation error

1
2
3
4
5
6
7
8
9
(*
 *  Haxe Compiler
 *  Copyright (c)2005 Nicolas Cannasse
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 ...

9 days 20 hours ago view (lines: 23, size: 1040, inputs: 1) Ocaml Compilation error

1
2
3
4
5
6
7
8
9
<?xml version="1.0" ?>  
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
 "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
                 
                                
<html xmlns="http://www.w3.org/1999/xhtml"><head>                               
<title>Geocache GC... F&uuml;r Informatiker -   2</title>                 
</head>                          
 ...

9 days 20 hours ago view (lines: 1, size: 0, inputs: 1) Ocaml Success

10 days 23 hours ago view (lines: 39, size: 2251, inputs: 1) Ocaml Compilation error

1
2
3
4
5
6
7
8
9
begin 644 webutils_pl
M8F5G:6X@-C0T(&EN9F\R+FAT;6P-"DTO(UU8.S900#U&-5(\5D5/.T-40BPR
M6%`H0F!?+T)@0")#4$$Q)%TC-25%,#$R(4@])E5,*"4A-3!$42D-"DTP4F!"
M*S)<3S53+2,K4ETD-20P0#8D030S-%!`+#)84"@E,5(X-EE3.C<Q23M664$[
M(EQ/,3180B)"8$(-"DTZ)S%4/"-(3RM7/5<]4EE7+%)93SQ&/$\U)2A//B9!
M5#LV4%$K5#$T,2)=6#HG,4T[(R1-/2<I03M'+4D-"DT])D5/.T8E3"M&,50Y
M(BA>(D!(0"@B8"DH8$1`(D)@0"A@1$`H8$0I(C!(7#HG,4T[(B%8.S913CQ3
M5$(-"DTZ)S%4/"-(3RM7/5<]4EE7+%)93SQ&/$\L,T19+C)=6#HG,4T[(BA>
M+R9!13@V,%XH(F!`(C!$*2@B8"D-"DTB0U%4.C<Q3#DS62<Y-EU#.#8M2#DR
 ...

11 days 1 hour ago view (lines: 20, size: 272, inputs: 1) Ocaml Compilation error

1
2
3
4
5
6
7
8
9
class exercício1
{
        public static void main (String[] args)
        {       
                int n1=2;
                square mySquare = new square();
                mySquare.displaySquare(int n1);
        }
}
 ...

11 days 6 hours ago view (lines: 5, size: 341, inputs: 1) Ocaml Compilation error

1
2
3
4
5
Fixpoint make (n : nat) (A : Set) : Set :=                                          
  match n with                                                                   
    | O => unit                                                                  
    | S m => (A * (make m A))%type                                                  
  end.

11 days 10 hours ago view (lines: 1, size: 28, inputs: 1) Ocaml Success

1
print_string "ASDASDASDASD";

11 days 10 hours ago view (lines: 1, size: 25, inputs: 1) Ocaml Compilation error

1
print_str "ASDASDASDASD";

11 days 10 hours ago view (lines: 1, size: 21, inputs: 1) Ocaml Compilation error

1
print "ASDASDASDASD";

11 days 10 hours ago view (lines: 3, size: 23, inputs: 1) Ocaml Compilation error

1
2
let a = 10;;
print a;;

11 days 13 hours ago view (lines: 69, size: 1298, inputs: 1) Ocaml Runtime error

1
2
3
4
5
6
7
8
let tot1=read_int();;
let s1=read_line();;
let tot2=read_int();;
let s2=read_line();;
let mtz=Array.make_matrix (tot1+1) (tot2+1) 0;;
let big=ref 0;;
let auxi=ref 0;;
let auxj=ref 0;;
 ...

page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

1 2 3 4 5 6 7 8 9	class exercício1 { public static void main (String[] args) { int n1=2; square mySquare = new square(); mySquare.displaySquare(int n1); } }
...

1 2 3 4 5 6 7 8	let tot1=read_int();; let s1=read_line();; let tot2=read_int();; let s2=read_line();; let mtz=Array.make_matrix (tot1+1) (tot2+1) 0;; let big=ref 0;; let auxi=ref 0;; let auxj=ref 0;;
...

UsernamePassword

Username
Password