/ http://shootout.alioth.debian.org

/mandelbrot
\t +/~^+/b*b:49{c+(-/x*x;2**/x)}/c:-1.5 -1+(2*!2#w)%w:10

/spectral norm
\t b:+a:a{2%2+x+x+y+y*y+:x}\a:!n:500;%(v$b$a$v)%v$v:19(b$a$)/n#1.

/nbody
r:(3#0.;4.84143144246472090 -1.16032004402742839 -1.03622044471123109e-01;8.34336671824457987 4.12479856412430479 -4.03523417114321381e-01;1.28943695621391310e01 -1.51111514016986312e01 -2.23307578892655734e-01;1.53796971148509165e01 -2.59193146099879641e01 1.79258772950371181e-01)
v:(3#0.;1.66007664274403694e-03 7.69901118419740425e-03 -6.90460016972063023e-05;-2.76742510726862411e-03 4.99852801234917238e-03 2.30417297573763929e-05;2.96460137564761618e-03 2.37847173959480950e-03 -2.96589568540237556e-05;2.68067772490389322e-03 1.62824170038242295e-03 -9.51592254519715870e-05)
v*:365.24;pi:3.1415926535897931;m:pi*pi*4*1 9.54791938424326609e-04 2.85885980666130812e-04 4.36624404335156298e-05 5.15138902046611451e-05;v[0]:-+/m*v%*m;t:0.01;M:1 -1*m p:+-2!5
\t:2000 v[|p]+:M*\:d*t%x*%x:d{+/x*y}'d:-/r p;r+:t*v

/fannkuch
\t |/(#{(|n#x),(n:*x)_x}\)'1+!-8

/fasta
f:"f0"
n:25000;g:{1+(+\x)bin?y}
a:"GGCCGGGCGCGGTGGCTCACGCCTGTAATCCCAGCACTTTGGGAGGCCGAGGCGGGCGGATCACCTGAGGTCAGGAGTTCGAGACCAGCCTGGCCAACATGGTGAAACCCCGTCTCTACTAAAAATACAAAAATTAGCCGGGCGTGGTGGCGCGCGCCTGTAATCCCAGCTACTCGGGAGGCTGAGGCAGGAGAATCGCTTGAACCCGGGAGGCGGAGGTTGCAGTGAGCCGAGATCGCGCCACTGCACTCCAGCCTGGGCGACAGAGCGAGACTCCGTCTCAAAAA"
\t f 0:,/(,">ONE";,">TWO";,">THREE"),'0N 60#/:((2*n)#a;"acgtBDHKMNRSVWY"g[.27 .12 .12 .27,10#.02]3*n;"actg"g[.3029549426680 .1979883004921 .1975473066391]5*n)

/k-nucleotide
\t a:0:f
\t a:,/(1+a?">THREE")_a
\t t%+/t:#:'=a
\t t%+/t:#:'=+-1 1_\:a
\t a(*+$)/:b:("ggt";"ggta";"ggtatt";"ggtattttaatt";"ggtattttaatttatagt")
\t (*+a$*b){x@&y~/:a x+\:!#y}\1_b