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
hello_world :- write('Hello World!').
-
1
?- write('Hello world').
-
1 2
hello_world :- write('Hello World!')
-
1 2
is_odd(X) :- mod(X,2). is_even(X) :- mod(X,2).
-
1 2
num(X). write('even') :- mod(X, 2) is 0.
-
1 2
write('even') :- C rem 2 =/= 0. write('odd') :- C rem 2 =:= 0.
-
1 2 3 4 5 6
fac( 0, 1) :-!. fac( N, Nfac) :- N > 0. M is N - 1. fac( M, Mfac). Nfac is N*Nfac.
-
1 2
write('even') :- C rem 2 =/= 0. write('odd') :- C rem 2 =:= 0.
-
1 2
is_odd(X) :- mod(X,2)=1. is_even(X) :- mod(X,2)=0.
-
1 2 3 4 5 6
fac( 0, 1) :- !. fac( N, Nfac) :- N>0, M is N - 1, fac( M, Mfac), Nfac is N * Mfac.
-
1 2 3 4 5 6
fac( 0, 1) :-!. fac( N, Nfac) :- N > 0. M is N -1. fac( M, Mfac). Nfac is N*Nfac.
-
1 2 3 4 5
eveodd(N) :- write('even') :- N>0, mod(N,2,mod), mod==0
-
1 2 3 4 5 6
fac(0,1):-!. fac(N,Nfac) :- N>0, M is N-1, fac(M, Mfac) Nfac is N*Mfac.
-
1 2 3 4 5 6
fac( 0, 1) :-!. fac( N, Nfac) :- N > 0, M is N -1. fac( M, Mfac), Nfac is N*Nfac.
-
1 2
is_odd(X) :- mod(X/2)=1. is_even(X) :- mod(X/2)=0.
-
1 2 3 4 5 6
fac(0, 1):-!. fac(N, Nfac):- N>0. M is N-1. fac(M, Mfac). Nfac is N*Mfac.
-
1
?- countdown(X).
-
1 2 3 4 5 6
fac(0,1) :-!. fac(N,Nfac) :- N>0, M is N -1. fac(M, Mfac), Nfac is N*Nfac.
-
1
?- countdown(X).
-
1 2 3
countdown(X) :- X>0, X is X-1, countdown(X).
-
1 2 3 4 5 6
fac(0, 1) :- !. fac(N, Nfac) :- N>0, M is N-1, fac(M, Mfac), Nfac is N*Mfac.
-
1 2 3 4 5 6
fac(0, 1) :- !. fac(N, Nfac) :- N>0, M is N - 1, fac(M, Mfac), Nfac is N * Mfac.
-
1 2 3
even(C,N) :- C is N. write('even') :- C rem 2 =/= 0. write('odd') :- C rem 2 =:= 0.
-
1 2
is_odd(X) :- mod(X/2)=1. is_even(X) :- mod(X/2)=0.
-
1 2 3 4 5 6
fac(0,1):-!. fac(N,Nfac):- N>0, M is N -1. fac(M, Mfac), Nfac is N*Nfac.
-
1 2 3 4 5 6
fac(0,1):-!. fac(N,Nfac):- N>0, M is N -1. fac(M, Mfac), Nfac is N*Nfac.
-
1 2 3
countdown(X) :- X>0, X is X-1, countdown(X).
-
1 2 3 4 5 6
fac( 0,1 ) :- !. fac( N, Nfac) :- N>0, M is N-1, fac( M, Mfac) Nfac is N * Mfac.
-
1 2 3
even(C,N) :- C is N. write('even') :- C rem 2 =/= 0. write('odd') :- C rem 2 =:= 0.
-
1 2 3
countdown(X) :- X>0, X is X-1, countdown(X).