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 6 7 8 9
# include <iostream> using namespace std; int main () { int k, suma=0; while (cin>>k){ suma=suma+k; } cout <<suma<< endl; }
-
1 2 3 4 5 6 7 8 9
# include <iostream> using namespace std; int main () { int n, mitjana, f; while (cin>>n){ } {
...
-
1 2 3 4 5 6 7 8 9
# include <iostream> using namespace std; int main () { int n, mitjana, f; while (cin>>n){ mitjana=n/f; }
...
-
1 2 3 4 5 6 7 8 9
# include <iostream> using namespace std; int main () { int n, mitjana, f; while (cin>>n){ mitjana=n/f; }
...
-
1 2 3 4 5 6 7
# include <iostream> using namespace std; int main () { int a, b; cin>> a>> b; cout<< a/b <<" "<< a%b << endl; }
-
1 2 3 4 5 6 7
# include <iostream> using namespace std; int main () { int a, b; cin>> a>> b; cout<< a/b <<" "<< a%b << endl; }
-
1 2 3 4 5 6 7
# include <iostream> using namespace std; int main () { int a, b; cin>> a>> b; cout<< a/b <<" "<< a%b << endl; }
-
1 2 3 4 5 6 7
# include <iostream> using namespace std; int main () { int a, b; cin>> a>> b; cout<< a/b<<" "<< a%b<< endl; }
-
1 2 3 4 5 6 7
# include <iostream> using namespace std; int main () { int a, b; cin>> a>> b; cout<< a/b<<" "<< a%b<< endl; }
-
1 2 3 4 5 6 7
# include <iostream> using namespace std; int main () { int a, b; cin>> a>> b; cout<< a/b<<" "<< a%b<< endl; }
-
1 2 3 4 5 6 7
# include <iostream> using namespace std; int main () { int a, b; cin>> a>> b; cout<< a/b<<" "<< a%b<< endl; }
-
1 2 3 4 5 6 7 8
(define (margreteborg row col) (cond ((< row col) #f) ((or (= 0 col) (= row col)) 1) (else (+ (margreteborg (- row 1) col) (margreteborg (- row 1) (- col 1)))))) N (margreteborg 2 2)+(margreteborg 3 2)+(margreteborg 11 2) (margreteborg 6 3)+(margreteborg 3 2) .(margreteborg 12 5)- (margreteborg 5 3)
...
-
1 2 3 4 5 6 7 8
(define (margreteborg row col) (cond ((< row col) #f) ((or (= 0 col) (= row col)) 1) (else (+ (margreteborg (- row 1) col) (margreteborg (- row 1) (- col 1)))))) N (margreteborg 2 2)+(margreteborg 3 2)+(margreteborg 11 2) (margreteborg 6 3)+(margreteborg 3 2) .(margreteborg 12 5)- (margreteborg 5 3)
...
-
1 2 3 4 5 6 7 8 9
(custom-set-variables ;; custom-set-variables was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. ) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful.
...
-
1 2 3 4 5 6 7 8 9
# include <iostream> # include <windows.h>//for color() # include <cstdlib>//for rand() , srand() # include <ctime>//for time() #include <conio.h> # include <string> using namespace std; //================================================================================================================================================ bool chek(int userdigit[])
...
-
1
27500
-
1 2 3 4 5 6 7
#include<iostream.h> int a; void main() { a=2; cout<<a; }
-
1 2 3 4 5 6 7 8
(def fact n (if (eq n 1) 1 (* n (fact (- n 1))))) (fact 1) (fact 2) (fact 4) (fact 6)
-
1 2 3 4 5 6 7 8 9
f~^kn~+c+ia~^+~cf+?/ [f!c-ki~:~b/au>++*+k~~r~bn!*+i <kk]k/>rkbrn~!:?[->+uc*a+af~>^b+ub+k +i?:fn>+b+kb^+>kn?+ii/kb++u>?a+^+?+u>u?c+ i:+~/+>++:kba+~b?+:>+rr!b+k+++u?n<k!b**<i<c~i <!^<<<<krb~^/]>>-u~/*-:<ck^<++!!:n+!kcbinc[~kr-: *k:!kb?>c~>>*u!nnrbabi>+irn>i?+~+?>icc*+ci+i+!<<rb ^knnb<!<!i<b^r<i!^/]>f/>>a/?>i~>~>>>b--.r/rucffa!/<n <:u<?ua<cr<*:<i:bb<fu/nb.>b:r:*?**>n:!>::~/*+.>>r-:.:
...
-
1
eval (car (a b))
-
1
eval (car (a b))
-
1
(format t "Hello, World\n")
-
1
(format t "Hello, World\n") <== C-j を入力
-
1
(format t "Hello, World\n") <== C-j を入力
-
1 2 3
(format t "Hello, World\n") <== C-j を入力 Hello, World nil
-
1 2 3 4 5 6 7
(defun flatten (x) (cond ((null x) '()) ((atom x) (list x)) (t (nconc (flatten (car x)) (flatten (cdr x)))))) (print (flatten (a (b c) (((())) b c))))
-
1 2 3 4 5 6 7 8 9
(defrule readin ?f<-(initial-fact) => (retract ?f) (assert (number (read))) ) (defrule writeout ?f<-(number ?n)(test (<> ?n 42))
...
-
1
'(1 2 3)
-
1
'(1 2 3)
-
1
'(1 2 3 4 5)


