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
NR==1{y=$1}NR>1&&NR<=y{$0=((1+sqrt(5))^$1-(1-sqrt(5))^$1)/(2^$1*sqrt(5))}
-
1
NR==1{y=$1}{x+=$1>0&&NR<=y?$1:0}END{print x-y}
-
1
NR==1{y=$1}{x+=$1>0&&NR<=y?$1:0}END{print x-y}
-
1
NR==1{y=$1}{x+=$1>0&&NR<==y?$1:0}END{print x-y}
-
1
NR==1{y=$1}$1>0{x+=$1}NR>y{print x-y;exit}
-
1
BEGIN{RS="";FS="\n"}{gsub("\n", " "); print $0;exit}
-
1
BEGIN{RS="";FS="\n"}{gsub("/-{1,4}[0-9]/", 0); print $0;exit}
-
1
BEGIN{RS="";FS="\n"}{print $1 $2 $3; exit}
-
1
BEGIN{FS="\\n"}{print $1 $2 $3; exit}
-
1
BEGIN{FS="\n"}{print $1 $2 $3; exit}
-
1
BEGIN{FS="\n"}{print $1 $2 $3}
-
1
BEGIN{FS="\n"}{print $0}
-
1
{y=$0;while(y-->0){getline;x+=$0*($0>0)}print x;exit}
-
1
{y=$0;while(y-->0){getline; x+=$0*($0>0)} print x; exit}
-
1
NR==1{y=$0;next}$1>0{x+=$1}NR==y+2{print x-NR+1;exit}
-
1
$1>0{x+=$1}END{print x-NR+1}
-
1
$1>0{x+=$1}END{print x-NR+1}
-
1
$1>0{x+=$1}END{print x-NR+1}
-
1
{x+=$0*($0>0)}END{print x-NR+1}
-
1
{x+=$0*($0>0)}END{print x-NR+1}
-
1
{print $0*($0>0)}END{print x-NR+1}
-
1
{x+=$0*($0>0)}END{print x-NR+1}
-
1
{x+=$0*($0>0)}END{print NR}
-
1
{x+=$0*($0>0)}END{print x-NR-1}
-
1
START{next}/^[1-9]/{x+=$0}END{print x}
-
1
START{next}/[^-]/{x+=$0}END{print x}
-
1
START{next}/[^\-]/{x+=$0}END{print x}
-
1 2 3 4
my$x35 =chr(176)."55".chr(46);my$x34 ;$x35=$x35."0\x363 E \t1;\10". 1 % 2 .chr(176/1) ."3\x34."; $x34=36 ;print "\x4E\11\x350" .$x35."1".$x34% 32 ."\x38\nH@". chr (80) .";\10Py "."c\x41c".chr ($x34*2 ) ."!Ng! :\x29 \n\7" ;;
-
1 2 3
#!/bin/sh more pers.txt | awk -f','{print $"age" $"name"}' > pers2.txt exit 0
-
1 2 3 4 5 6 7 8 9
1 f8 b08 0814 cbc14 c00032 3000b0e 71747735 b452f0533
...


