1
65 symbols pyth
Mon Nov 14 14:28:55 2016 Sait2000
 .vCim-id64^964 2cCM"඾莻槫胨蒲㢽䧎㮼棭⿳⿍痪ⷍ自ⷱ礎枾薾㛩㶰滩诪㮹䬌磭㶰緓枰䫪㮹䬌嗯僝蒰玱㏪械㛀"3^4 8
2
66 symbols pyth
Mon Nov 14 14:14:53 2016 Sait2000
 .vCim-id64^964 2cCM"෫埩㰆㣬椃昇⾻㫌䮾㧫檲炲䫸枰䬄枰滚诪㰈㮹曀ⷱ朎枾薾㛚㶰緓枰䫪㮹䬌嗯僝蒰玱㏪械㛀"3^4 8
3
67 symbols pyth
Mon Nov 14 14:06:07 2016 Sait2000
 .vCim-id64^964 2cCM"棚曑㦻槫胨蒲㢽䧎㮼棭⿳⿍痪ⷍ自ⷱ堎枾薾㛩㶰滩诪㰈㮹埀⸀僪ⷍ枾㛘ⷶ⺶柫ⶹ㶲燯僝蒾菗"3^4 8
4
68 symbols pyth
Mon Nov 14 13:59:26 2016 Sait2000
 .vCim-id64^964 2cCM"෫埩墻槫胨蒲㢽䧎㮼棭⿳⿍痪ⷍ自ⷱ堎枾薾㛩㶰滩诪㰈㮹埀⸀僪ⷍ枾㛗ⷶ⺶柫ⶹ㶲燍哯僝蒾菛"3^4 8
5
76 symbols pyth
Mon Nov 14 14:24:54 2016 Sait2000
 .v+\[sXw"+-<>.,[]"c"=hZ =tZ ak~Z.x.)Y0 aY~Z.)=|k]0 pCZ =Z.)=|H_CMw f!&Z[ )0
6
78 symbols pyth
Mon Nov 14 14:13:49 2016 Sait2000
 [JY.v+\[sXw"+-<>.,[]"c"=hZ =tZ aJ~Z.x.)Y0 aY~Z.x.)J0 pCZ =Z.)=|H_CMw f!&Z[ )0
7
81 symbols pyth
Mon Nov 14 14:04:53 2016 Sait2000
 [JYA,+\[sXw"+-<>.,[]"c"=hZ =tZ aJ~Z.x.)Y0 aY~Z.x.)J0 pCZ =Z.)H f!&Z[ )0"d_CMw.vG
8
82 symbols pyth
Mon Nov 14 08:11:02 2016 Sait2000
 [JYK+\[sXw"+-<>.,[]"c"=hZ =tZ aJ~Z.x.)Y0 aY~Z.x.)J0 pCZ =Z.)G f!&Z[ )0"d=G_CMw.vK
9
94 symbols pyth
Thu Nov 3 19:13:18 2016 Sait2000
 .v.ZCim-id64^964 2cCM"හᐬᶁ枻䕚듾稛镏䆌㯲㗒䓂乡䴪῿ተ鐸ར盘ื瑇䑢邹࿒蚥ᔏ픕搶렿醹䝁䄠賩끖譢飸⠪뗖垬볌䨴ᴪ卾㒔텠ꂵ䲑揓㋬ᔃἳ翞"3 66433
10
102 symbols pyth
Sat Oct 29 16:03:18 2016 Sait2000
 .v.ZCim-i%Vd[16=T64T)T=T5698cCM"㬽䛢囐럂⾔吕偩㹛숻颂㰎쀥獆왼弞퉘禒鋌앇♵趉ᴣ로ꝟ⧶萅㠶킶굙쯰쳊ꥤ㺖毸硊뀱跾抪藊渐㞁ꪢꀍ㇆暜网䩾꾏溽蝛묯㩦傾뒊㶶ᦵ嶴贷塺닜颕斓銿귻"3*T9
11
103 symbols pyth
Sat Oct 29 07:37:55 2016 Sait2000
 .v.ZCim-i+%hd16td64=T5698cm%Cd64"㬽䛢囐럂⾔吕偩㹛숻颂㰎쀥獆왼弞퉘禒鋌앇♵趉ᴣ로ꝟ⧶萅㠶킶굙쯰쳊ꥤ㺖毸硊뀱跾抪藊渐㞁ꪢꀍ㇆暜网䩾꾏溽蝛묯㩦傾뒊㶶ᦵ嶴贷塺닜颕斓銿귻"3*T9
12
104 symbols pyth
Sat Oct 29 07:24:42 2016 Sait2000
 .v.ZCim-i+%hd16td64=T5665cm%Cd64"媫⣐煃ꟺꒌ⬚텋劯뵯쩩槟⡏ᙑꉆ距숏칫씾頚ᴭ⛳⨎⛝駳皏쿢볟⾂㶕궳ⳏ躮⌙뫤뗐ᵝ팲벑軴꧂뺸풇䃌ậ쒑뫺䮿娫ἤꋭ捌㗟꾽㩏ᴽ좘뱓똢肼匹숑ꙥ샔稬꒘"3*T9
13
105 symbols pyth
Sat Oct 29 07:16:27 2016 Sait2000
 .v.ZCim-i+%hd16td64=T9853cm%Cd64"⚀䵶퇽톾辒餯蘼嶱璀㼿䁂瘮殽䖌궷惷萾橃ꌏ煇寨骆轘㾿楪疴倆흼䙀䄫꩙鴲缁搩蘇吘⦿篳䋖ㄟ핅悎꧀涜㾇榼훻㐦嵞네堪뤺劫뒶褀祢释ꅙ靥沃棓⡺鹀Ⲻ力㎏"3*T5
14
108 symbols pyth
Sat Oct 29 07:11:29 2016 Sait2000
Lim-i+%hd16td64=T9853cm%Cd64b3*T5 .v.ZCy"⚀䵶퇽톾辒餯蘼嶱璀㼿䁂瘮殽䖌궷惷萾橃ꌏ煇寨骆轘㾿楪疴倆흼䙀䄫꩙鴲缁搩蘇吘⦿篳䋖ㄟ핅悎꧀涜㾇榼훻㐦嵞네堪뤺劫뒶褀祢释ꅙ靥沃棓⡺鹀Ⲻ力㎏"
15
120 symbols pyth
Sat Oct 29 06:22:49 2016 Sait2000
 .e?qb\[aYk&qb\]XXH=d.)YkkdzJ0K_CMw=NY#=Gh>zZ=+J-qG\+qG\- ?qG\<aY~J.x.)N0?qG\>aN~J.x.)Y0?qG\,=J.)K&qG\.pCJ=h.x@S,Z@HZ!JZ
16
127 symbols pyth
Sat Oct 29 06:18:42 2016 Sait2000
F,GbC,zUz ?qG\[aYb&qG\]XXH=d.)Ybbd)J0K_CMw=NY#=Gh>zZ=+J-qG\+qG\- ?qG\<aY~J.x.)N0?qG\>aN~J.x.)Y0?qG\,=J.)K&qG\.pCJ=h.x@S,Z@HZ!JZ
17
128 symbols pyth
Sat Oct 22 14:42:43 2016 Sait2000
F,GbC,zUlz ?qG\[aYb&qG\]XXH=d.)Ybbd)J0K_CMw=NY#=Gh>zZ=+J-qG\+qG\- ?qG\<aY~J.x.)N0?qG\>aN~J.x.)Y0?qG\,=J.)K&qG\.pCJ=h.x@S,Z@HZ!JZ
18
131 symbols pyth
Tue Oct 18 13:15:06 2016 Sait2000
F,GbC,zUlz ?qG\[aYb&qG\]XXH=d.)Ybbd)J0K_CMw=NYW<Zlz=G@zZ=+J-qG\+qG\- ?qG\<aY~J.x.)N0?qG\>aN~J.x.)Y0?qG\,=J.)K&qG\.pCJ=h.x@S,Z@HZ!JZ
19
133 symbols pyth
Tue Oct 18 13:11:53 2016 Sait2000
F,GbC,zUlz ?qG\[aYb&qG\]XXH=d.)Ybbd)=T0=k_CMw=NYW<Zlz=G@zZ=+T-qG\+qG\- ?qG\<aY~T.x.)N0?qG\>aN~T.x.)Y0?qG\,=T.)k&qG\.pCT=h.x@S,Z@HZ!TZ
20
148 symbols pyth
Sat Oct 29 07:08:46 2016 Sait2000
 .v"[=zw.e?qb\\[aYk&qb\\]XXH=d.)YkkdzJ0K_CMw=NY=bHu?<Zlzh[H=G@zZ=+J-q;\\+q;\\-?q;\\<aY~J.x.)N0?q;\\>aN~J.x.)Y0?q;\\,=J.)K&q;\\.pCJ=h.x@S,Z@bZ!JZ)kk"
21
163 symbols perl
Tue Oct 18 13:28:42 2016 Sait2000
#!/usr/bin/perl -n
@i=split//,<>;$d=$a{0}=0;$k='$a{$d}';s/\+/$k++;/g;s/-/$k--;/g;s/>/++\$d;/g;s/</--\$d;/g;s/\./print chr$k;/g;s/\[/while($k){/g;s/]/}/g;s/,/$k=ord\$i[\$c++];/;eval
22
183 symbols perl
Sun Nov 15 22:46:47 2015 danieljabailey
#!/usr/bin/perl -n
@i=split//,<>;$d=$a{0}=0;$k='$a{$d}';s/>/>+-/g;s/</<+-/g;s/\+/$k++;/g;s/-/$k--;/g;s/>/++\$d;/g;s/</--\$d;/g;s/\./print chr$k;/g;s/\[/while($k){/g;s/]/}/g;s/,/$k=ord\$i[\$c++];/;eval
23
185 symbols perl
Sun Nov 15 21:06:24 2015 danieljabailey
#!/usr/bin/perl -n
@i=split//,<>;$d=$a{0}=0;$k="\$a{\$d}";s/>/>+-/g;s/</<+-/g;s/\+/$k++;/g;s/-/$k--;/g;s/>/++\$d;/g;s/</--\$d;/g;s/\./print chr$k;/g;s/\[/while($k){/g;s/]/}/g;s/,/$k=ord\$i[\$c++];/;eval
24
201 symbols perl
Sun Nov 15 21:01:35 2015 danieljabailey
#!/usr/bin/perl -n
@i=split//,<>;$d=$a{0}=0;s/>/>+-/g;s/</<+-/g;s/\+/\$a{\$d}++;/g;s/-/\$a{\$d}--;/g;s/>/++\$d;/g;s/</--\$d;/g;s/\./print chr\$a{\$d};/g;s/\[/while(\$a{\$d}){/g;s/]/}/g;s/,/\$a{\$d}=ord\$i[\$c++];/;eval
25
202 symbols perl
Sun Nov 15 21:01:09 2015 danieljabailey
#!/usr/bin/perl -n
@i=split//,<>;$d=$a{0}=0;s/>/>+-/g;s/</<+-/g;s/\+/\$a{\$d}++;/g;s/-/\$a{\$d}--;/g;s/>/++\$d;/g;s/</--\$d;/g;s/\./print chr\$a{\$d};/g;s/\[/while(\$a{\$d}){/g;s/]/}/g;s/,/\$a{\$d}=ord\$i[\$c++];/g;eval
26
202 symbols perl
Wed Nov 18 02:14:40 2015 vakorol
#!/usr/bin/perl -n0F\n
sub w{my($s,$k)=@_;for(split//,$s){$b&&$b--&next;$$C=$c[$i+=/>/-/</]+=$_.1;/\./&&print chr$$C;$F[1]=~/./g,$c[$i]=ord$&if/,/;$k++;if(/\[/){ $s=~/.{$k}(.+?)\]/;w($1)while$$C;$k+=$b=length$1}}}w$F[0]
27
202 symbols perl
Wed Nov 18 02:18:34 2015 vakorol
#!/usr/bin/perl -n0F\n
sub w{my($s,$k)=@_;for(split//,$s){$b&&$b--&next;$$C=$c[$i+=/>/-/</]+=$_.1;/\./&&print chr$$C;$F[1]=~/./g,$c[$i]=ord$&if/,/;$k++;if(/\[/){ $s=~/.{$k}(.+?)\]/;w($1)while$$C;$k+=$b=length$1}}}w$F[0]
28
221 symbols bash
Wed Jul 27 07:33:37 2016 hidefromkgb
read i;p=0;while((j<${#i}));do case ${i:$j:1} in \>)((p++));;\<)((p--));;+)((d[$p]++));;-)((d[$p]--));;.)printf \\`printf %03o ${d[$p]}`;;,)read -n1 t;d[$p]=`printf %d \'$t`;;\[)l=$j;;\])((d[$p]))&&j=$l;;esac;((j++));done
29
297 symbols perl
Thu Jul 2 03:12:53 2015 vakorol
#!/usr/bin/perl -an0F\n
sub w{my($s,$k)=@_;for(split//,$s){$b--,next if$b;$c[$i]++if"+"eq$_;$c[$i]--if"-"eq$_;$i++if">"eq$_;$i--if"<"eq$_;print(chr$c[$i])if"."eq$_;$c[$i]=ord(substr$F[1],$v,1),$v++if","eq$_;if("["eq$_){$r=substr$s,$k+1,index($s,"]",$k+1)-$k-1;$j=$i;w($r)while$c[$j];$b=length$r;$k+=$b}$k++}}w$F[0]
30
405 symbols python2
Wed Sep 23 20:16:35 2015 PFischbeck
a=[0]*99
p=0
i=0
def bf(u):
 global a,B,i,p;s="";o=0
 while o<len(u):
	c=u[o]
	if"+"==c:a[p]+=1
	if"-"==c:a[p]-=1
	if">"==c:p+=1
	if"<"==c:p-=1
	if"["==c:
		b=f(u,o)
		while a[p]>0:bf(u[o+1:b])
		o=b
	if'.'==c:sys.stdout.write(chr(a[p]))
	if','==c:a[p]=ord(B[i]);i+=1
	o+=1
def f(s,o):
 i=o;p=1
 while 1:
	i+=1
	if'['==s[i]:p+=1
	if']'==s[i]:p-=1
	if p==0:return i
import sys
r=raw_input
A=r()
B=r()
bf(A)
31
658 symbols haskell
Fri Mar 20 13:50:43 2015 YoshikuniJujo
import Data.Char
l=length
main=getLine>>=b 0[].(,)""
b _ m(_,"")=return()
b p m(r,a:d)=case a of '>'->b(succ p)m(a:r,d);'<'->b(pred p)m(a:r,d);'+'->b p(o succ p m)(a:r,d);'-'->b p(o pred p m)(a:r,d);'.'->putChar(chr$m!!p)>>b p m(a:r,d);','->do{c<-getChar;b p(o(const$ord c)p m)(a:r,d)};'['|l m<p+1||m!!p==0->b p m.k 1$(a:r,d)|0<1->b p m(a:r,d); ']'|m!!p/=0->b p m.t 1$(r,a:d)|0<1->b p m(a:r,d);
o f p m|l m<p+1=o f p$m++replicate(p+1-l m)0|0<1=take p m++[f$m!!p]++drop(p+1)m
k n p|n<1=p
k n(r,'[':s)=k(n+1)('[':r,s)
k n(r,']':s)=k(n-1)(']':r,s)
k n(r,c:s)=k n(c:r,s)
t n p|n<1=p
t n(']':r,s)=t(n+1)(r,']':s)
t n('[':r,s)=t(n-1)(r,'[':s)
t n(c:r,s)=t n(r,c:s)
32
1942 symbols haskell
Fri Mar 20 10:41:52 2015 YoshikuniJujo
import Data.Char

main :: IO ()
main = do
	src <- getLine
	brainfuck 0 [] ("", src)
	return ()

brainfuck :: Int -> [Int] -> (String, String) -> IO [Int]
brainfuck _ ms (_, "") = return ms
brainfuck ptr ms (pre, '>' : src) = brainfuck (succ ptr) ms ('>' : pre, src)
brainfuck ptr ms (pre, '<' : src) = brainfuck (pred ptr) ms ('<' : pre, src)
brainfuck ptr ms (pre, '+' : src) = brainfuck ptr (inc ptr ms) ('+' : pre, src)
brainfuck ptr ms (pre, '-' : src) = brainfuck ptr (dec ptr ms) ('-' : pre, src)
brainfuck ptr ms (pre, '.' : src) = do
	putChar (chr $ ms !! ptr)
	brainfuck ptr ms ('.' : pre, src)
brainfuck ptr ms (pre, ',' : src) = do
	c <- getChar
	brainfuck ptr (modify (const $ ord c) ptr ms) (',' : pre, src)
brainfuck ptr ms (pre, '[' : src)
	| length ms < ptr + 1 || ms !! ptr == 0 =
		brainfuck ptr ms . bracket 1 $ ('[' : pre, src)
	| otherwise = brainfuck ptr ms ('[' : pre, src)
brainfuck ptr ms (pre, ']' : src)
	| ms !! ptr /= 0 = brainfuck ptr ms . tekcarb 1 $ (pre, ']' : src)
	| otherwise = brainfuck ptr ms (']' : pre, src)
brainfuck ptr ms (pre, _ : src) = brainfuck ptr ms (pre, src)

inc, dec :: Int -> [Int] -> [Int]
inc = modify succ
dec = modify pred

modify :: (Int -> Int) -> Int -> [Int] -> [Int]
modify f ptr ms | length ms < ptr + 1 =
	modify f ptr $ ms ++ replicate (ptr + 1 - length ms) 0
modify f ptr ms = take ptr ms ++ [f $ ms !! ptr] ++ drop (ptr + 1) ms

bracket, tekcarb :: Int -> (String, String) -> (String, String)
bracket n pp | n < 1 = pp
bracket n (pre, '[' : pst) = bracket (n + 1) ('[' : pre, pst)
bracket n (pre, ']' : pst) = bracket (n - 1) (']' : pre, pst)
bracket n (pre, c : pst) = bracket n (c : pre, pst)
bracket _ _ = error "no match bracket"
tekcarb n pp | n < 1 = pp
tekcarb n (']' : pre, pst) = tekcarb (n + 1) (pre, ']' : pst)
tekcarb n ('[' : pre, pst) = tekcarb (n - 1) (pre, '[' : pst)
tekcarb n (c : pre, pst) = tekcarb n (pre, c : pst)
tekcarb _ _ = error "no match bracket"