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
{ getline temp print temp }
-
1 2 3 4 5
{ while(getline tmp != 42) {print } }
-
1 2 3 4 5 6 7 8 9
{ getline tmp while(tmp!=42) { print getline tmp } close(tmp) }
-
1 2 3 4 5 6 7 8 9
{ getline tmp while(1) { if(tmp!=42) {print getline tmp} else close(tmp) }
-
1 2 3 4 5 6 7
{ getline tmp while(temp!=42) { print tmp getline tmp } }
-
1 2 3 4 5 6 7
{ getline tmp while(temp!=42) { print tmp } }
-
1 2 3 4 5 6
{ getline tmp if ((tmp) !=42) { print tmp } }
-
1 2 3 4 5 6
{ getline tmp if ((getline tmp) !=42) { print tmp print $0 } }
-
1 2 3 4 5 6 7
{ getline tmp if ((getline tmp) !=42) { print tmp } else print $0 }
-
1 2 3 4 5 6 7
{ getline tmp if ((getline tmp) !=42) { print tmp print $0 } else print $0 }
-
1 2 3 4 5 6 7
awk '{ getline tmp if ((getline tmp) !=42) { print tmp print $0 } else print $0 }'
-
1
print "Kode Multus"
-
1 2 3 4 5 6 7 8 9
#include<stdio.h> int main() { int i,fact=1; for(i=1;i<=10;i++) { fact=fact*i; } printf("%d",fact);
...
-
1
print "Kode Multus"
-
1 2 3 4 5 6 7 8 9
#include<stdio.h> int main() { int i,fact=1; for(i=1;i<=10;i++) { fact=fact*i; } printf("%d",fact);
...
-
1 2 3 4 5 6 7 8 9
#include<stdio.h> int main() { int i,fact=1; for(i=1;i<=10; ) { fact=fact*i; i++; }
...
-
1 2 3 4 5 6 7 8 9
#include<stdio.h> void main() { printf("ENTER A NUMBER WHOSE FACTOTIAL TO BE FIND"); int n; scanf(%d,&n); int i; int fact=1; for(i=1;i<=n;i++ )
...
-
1 2
BEGIN { RS = "------" ; ORS = RS } $0 ~ "ERR: " { print }
-
1 2 3 4 5 6 7 8 9
/\\section{/ { oldline=$0 if ( oldline ~ /}/ ) { lt=gensub(".*{([^}]+)}.*","\\1","g",oldline) } else { lt=gensub(".*{(.*)","\\1","g",oldline) getline tmp while ( tmp !~ "}" ) { lt=lt "\n" tmp getline tmp
...
-
1 2 3
{ a[i++ % 3 ]=$0} / matching pattern/ {print a[(i-3)%3];print a[(i-2)%3];i=0} /matching pattern/,/unmatching pattern/ {if($0 !~ /unmatching pattern/) print }
-
1 2 3 4 5 6 7 8 9
BEGIN { } { } END {
...
-
1 2 3 4 5 6 7 8
#!/usr/bin/perl use strict; use warnings; use integer; =head1 DESCRIPTION
...
-
1 2 3
{ printf("%d", int(3 * rand())) }
-
1
printf("%d", int(3 * rand()))
-
1
print (int(3 * rand()))
-
1
int(3 * rand())
-
1 2 3 4 5 6 7 8 9
...
-
1
{ print length(gensub("[^;]","","g",$0)) }
-
1
#!awk -p /[DEFG]/ {$1++}{2**$1}
-
1
$awk -l /[DEFG]/ {$1++}{2**$1}


