Recent public codes are listed below. You can filter them by the following programming languages:
- view
- All
- Ada
- Assembler
- Assembler
- AWK (gawk)
- AWK (mawk)
- Bash
- bc
- Brainf**k
- C
- C#
- C++
- C++0x
- C99 strict
- CLIPS
- Clojure
- COBOL
- COBOL 85
- Common Lisp (clisp)
- D (dmd)
- Erlang
- F#
- Factor
- Falcon
- Forth
- Fortran
- Go
- Groovy
- Haskell
- Icon
- Intercal
- Java
- JavaScript (rhino)
- JavaScript (spidermonkey)
- Lua
- Nemerle
- Nice
- Nimrod
- Objective-C
- Ocaml
- Oz
- Pascal (fpc)
- Pascal (gpc)
- Perl
- Perl 6
- PHP
- Pike
- Prolog (gnu)
- Prolog (swi)
- Python
- Python 3
- R
- Ruby
- Scala
- Scheme (guile)
- Smalltalk
- SQL
- Tcl
- Text
- Unlambda
- VB.NET
- Whitespace
-
1 2 3 4 5
let rec fact(n) = 0 -> 1 | n -> n*fact(n-1);; fact(4);;
-
1 2 3 4 5
let rec fact(n) = | 0 -> 1 | n -> n*fact(n-1);; fact(4);;
-
1
let x, y = 2, 5;;
-
1 2 3 4 5 6 7 8 9
let x, y = 2, 5;; let f y = x + y;; f (let f = function x -> x * x in f x);; let v x f = f x;; let cero x = v 0 x and dos x = v 2 x;; let g = cero (-) in g 1;; let h = dos (+);; dos h;; g 0, h 0;;
...
-
1 2 3 4 5 6 7 8 9
module type X = sig type a val plus: a * a -> a end;; module XX:X = struct type a = int
...
-
1 2 3 4 5 6 7 8 9
module type X = sig type a = int val plus: a * a -> a end;; module XX:X = struct type a = int
...
-
1 2 3 4 5 6 7 8 9
module type X = sig type a = int val plus: a * a -> a end;; module XX:X = struct type a = int
...
-
1 2 3 4 5 6 7 8 9
module type X = sig type a = int val plus: a * a -> a end;; module XX:X = struct type a = int
...
-
1 2 3 4 5 6 7 8 9
module type X = sig type a = int val plus: a * a -> a end;; module XX:X = struct type a = int
...
-
1 2 3 4 5 6 7
let action dist = match dist with | 0 -> print_string "0" | 1 -> print_string "1" | 2 -> print_string "2" | _ -> print_string "other" in action 3; action 2
-
1 2 3 4 5 6
let action dist = match dist with | 0 -> print_string "0" | 1 -> print_string "1" | 2 -> print_string "2" | _ -> print_string "other"
-
1 2 3 4 5 6
let action dist = match dist with | 0 -> print_string "0" | 1 -> print_string "1" | 2 -> print_string "2" | _ -> print_string "other"
-
1 2 3
let distance_between loc1 loc2 mapsize = if abs(loc1 - loc2) > (mapsize / 2) then print_string "true" else print_string "false" in distance_between 2 9 10
-
1 2 3
let distance_between loc1 loc2 mapsize = if abs(loc1 - loc2) > (mapsize / 2) then true else false in distance_between 2 9 10
-
1 2 3
let distance_between loc1 loc2 mapsize = if abs(loc1 - loc2) > (mapsize / 2) then true else false in distance_between 2 9 10
-
1
4
-
1 2 3 4 5 6 7 8 9
<!DOCTYPE html> <html lang="pl" xml:lang="pl"> <head xmlns:fb="http://www.facebook.com/2008/fbml"> <meta charset="UTF-8" /> <!--<title>Ideone.com | Online IDE & Debugging Tool</title>--> <title>Ideone.com | Online IDE & Debugging Tool >> C/C++, Java, PHP, Python, Perl and 40+ compilers and intepreters</title> <meta name="keywords" content="online compiler, run code online, snippet, pastebin, online ide, debugging tool, run your code online, programming online, run code, run snippet, execute snippet, execute code, C++, Java, C#, Visual Basic, VB, .NET, Sphere Research Labs, ideone" /> <meta http-equiv="Content-Language" content="pl" />
...
-
1 2 3 4 5 6 7 8 9
<!DOCTYPE html> <html lang="pl" xml:lang="pl"> <head xmlns:fb="http://www.facebook.com/2008/fbml"> <meta charset="UTF-8" /> <!--<title>Ideone.com | Online IDE & Debugging Tool</title>--> <title>Ideone.com | Online IDE & Debugging Tool >> C/C++, Java, PHP, Python, Perl and 40+ compilers and intepreters</title> <meta name="keywords" content="online compiler, run code online, snippet, pastebin, online ide, debugging tool, run your code online, programming online, run code, run snippet, execute snippet, execute code, C++, Java, C#, Visual Basic, VB, .NET, Sphere Research Labs, ideone" /> <meta http-equiv="Content-Language" content="pl" />
...
-
1 2 3 4 5 6 7 8 9
<!DOCTYPE html> <html lang="pl" xml:lang="pl"> <head xmlns:fb="http://www.facebook.com/2008/fbml"> <meta charset="UTF-8" /> <!--<title>Ideone.com | Online IDE & Debugging Tool</title>--> <title>Ideone.com | Online IDE & Debugging Tool >> C/C++, Java, PHP, Python, Perl and 40+ compilers and intepreters</title> <meta name="keywords" content="online compiler, run code online, snippet, pastebin, online ide, debugging tool, run your code online, programming online, run code, run snippet, execute snippet, execute code, C++, Java, C#, Visual Basic, VB, .NET, Sphere Research Labs, ideone" /> <meta http-equiv="Content-Language" content="pl" />
...
-
1 2 3 4 5 6 7 8
let rec gcd m n = if ( n = 0 ) then m else (gcd n (m mod n));; if ( ( gcd 36 63 ) = 9 ) then ( Printf.printf "ok\n" ) else ( Printf.printf "failed\n" );;
-
1 2 3 4 5 6 7
let count = ref 0 in for i = 5 to 10000 do for j = (i/3+1) to (i/2) do if gcd i j == 1 then count := !count + 1 done done; Printf.printf "%d solutions\n" !count;;
-
1 2 3 4 5
let count = ref 0 in for i = 5 to 1000 do count := !count + count_for_denom i done; Printf.printf "%d solutions\n" !count;;
-
1 2 3 4 5 6 7 8 9
let is_prime n = let rec iterate i = if ( i * i > n ) then true else if ( ( n mod i ) = 0 ) then false else iterate ( i + 1 )
...
-
1 2 3 4 5 6 7 8 9
let is_prime n = let rec iterate i = if ( i * i > n ) then true else if ( ( n mod i ) = 0 ) then false else iterate ( i + 1 )
...
-
1 2 3 4 5 6 7 8 9
let is_prime n = let rec iterate i = if ( i * i > n ) then true else if ( ( n mod i ) = 0 ) then false else iterate ( i + 1 )
...
-
1 2 3 4 5 6 7 8 9
let is_prime n = let rec iterate i = if ( i * i > n ) then true else if ( ( n mod i ) = 0 ) then false else iterate ( i + 1 )
...
-
1 2 3 4 5 6 7 8 9
let is_prime n = let rec iterate i = if ( i * i > n ) then true else if ( ( n mod i ) = 0 ) then false else iterate ( n + 1 )
...
-
1 2 3 4 5 6 7 8 9
let is_prime n = let rec iterate i = if ( i * i > n ) then true else if ( ( n mod i ) = 0 ) then false else iterate ( n + 1 )
...
-
1 2
let rec gcd m n = if (n = 0) then m else (gcd n (m mod n) );; Printf.printf "%d\n" (gcd 24 32);;
-
1 2
let rec gcd m n = if (n = 0) then m else (gcd n (m mod n) );; Printf.printf "%d\n" (gcd 3 4);;