апдейт:
[code],>++++++++[>++++>++++++<<<------>-]>
>>>+<<+<<<[>>>>[<+>>>+<<-]>[>+>+<<-]
>>[<<<+>>>-]<[<+>-]<<<.<.<<-]+++++++
++++++.---.[/code]
даже 119 символов
Только я, видимо :)
[code]
,>++++++++[>++++<<------>-]>>>+<<<<
[>>>[>>+<<-]>[>+>+<<-]>>[<<<+>>>-]<
[<+>>+<-]++++++++[>++++++<-]>.[-]<<
<<.<<-]+++++++++++++.---.
[code]
130 символов супротив ваших 137, при том же функционале :)
Чтобы полностью соответствовать «классическому» Brainfuck'у по части переменных (возможные значения — 0..255, по остатку от 256) надо сделать примерно так: #!/bin/bash
C="s[0]=0; p=0;"
while read -n1 c; do case $c in
\+) C="$C s[\$p]=\$((\${s[\$p]}+1));";
C="$C if [ \${s[\$p]} -eq 256 ];then s[\$p]=0;fi;";;
\-) C="$C s[\$p]=\$((\${s[\$p]}-1));";
C="$C if [ \${s[\$p]} -eq -1 ];then s[\$p]=255;fi;";;
\>) C="$C p=\$((\$p+1));";;
\<) C="$C p=\$((\$p-1));";;
\.) C="$C printf \\\\\$(printf '%03o' \${s[\$p]});";;
\,) C="$C read -n1 c; s[\$p]=\`printf '%d' \"'\$c\"\`;";;
\[) C="$C while [[ \${s[\$p]} > 0 ]]; do ";;
\]) C="$C done;";;
esac; done < $1;
eval $C
А не проще взять обычный бумажный блокнот, на первом листе нарисовать верх браузера, и отрезать лишок?
После этого рисуем на листе. Не понравилось — оторвали его и рисуем на следующем.
Понравилось — оторвали его, и отложили в папочку готовых набросков.
мне кажется, что sociatop.ru будет продуктом, а Сочи-2014 — просто тест системы :)
а реклама вашего же sociatop.ru — не считается?
или вы откроете исходники?
что-то мне кажется, что просто пиарище.
даже нет, ПИАРИЩЕ.
#!/bin/bash
C="s[0]=0; p=0;"
while read -n1 c; do case $c in
\+) C="$C s[\$p]=\$((\${s[\$p]}+1));";
C="$C if [ \${s[\$p]} -eq 256 ];then s[\$p]=0;fi;";;
\-) C="$C s[\$p]=\$((\${s[\$p]}-1));";
C="$C if [ \${s[\$p]} -eq -1 ];then s[\$p]=255;fi;";;
\>) C="$C if [ \$p -eq 2999 ];then p=-1;fi;";
C="$C p=\$((\$p+1));";;
\<) C="$C if [ \$p -eq 0 ];then p=3000;fi;";
C="$C p=\$((\$p-1));";;
\.) C="$C printf \\\\\$(printf '%03o' \${s[\$p]});";;
\,) C="$C read -n1 c; s[\$p]=\`printf '%d' \"'\$c\"\`;";;
\[) C="$C while [[ \${s[\$p]} > 0 ]]; do ";;
\]) C="$C done;";;
esac; done < $1;
eval $C
простите мою «кривоту», но в sh не мастер.
,>>>++++[>++++[<<<<---<+>>++>+++>>-]<-]>+<<+
<<[>>>[<+>>>+<<-]>[<+>>+<-]>[<+>-]<<<.<.<-]<
---.---.
96 :)
,>>>++++[>++++[<<<<--->++>+++>>-]<-]>+<<+<
<[>>>[<+>>>+<<-]>[<+>>+<-]>[<+>-]<<<.<.<-]
+++++++++++++.---.
Чувствую, сражение идет за каждый символ :)
102 против 103.
но все же, они смотрели именно онлайн.
ведь просмотр онлайн-плеером никак факт «скачки» не отменяет.
Какие иски? Вы о чем?
«Да и вообще, информацию тут недолюбливают.»
</сарказм>
допиливается, думаю, крайне быстро.
тот же Samsung, например. сам имею такой ТВ.
а тут — будут брать Chrome OS, платить денюжку Google, это да.
[code],>++++++++[>++++>++++++<<<------>-]>
>>>+<<+<<<[>>>>[<+>>>+<<-]>[>+>+<<-]
>>[<<<+>>>-]<[<+>-]<<<.<.<<-]+++++++
++++++.---.[/code]
даже 119 символов
[code]
,>++++++++[>++++<<------>-]>>>+<<<<
[>>>[>>+<<-]>[>+>+<<-]>>[<<<+>>>-]<
[<+>>+<-]++++++++[>++++++<-]>.[-]<<
<<.<<-]+++++++++++++.---.
[code]
130 символов супротив ваших 137, при том же функционале :)
#!/bin/bash
C="s[0]=0; p=0;"
while read -n1 c; do case $c in
\+) C="$C s[\$p]=\$((\${s[\$p]}+1));";
C="$C if [ \${s[\$p]} -eq 256 ];then s[\$p]=0;fi;";;
\-) C="$C s[\$p]=\$((\${s[\$p]}-1));";
C="$C if [ \${s[\$p]} -eq -1 ];then s[\$p]=255;fi;";;
\>) C="$C p=\$((\$p+1));";;
\<) C="$C p=\$((\$p-1));";;
\.) C="$C printf \\\\\$(printf '%03o' \${s[\$p]});";;
\,) C="$C read -n1 c; s[\$p]=\`printf '%d' \"'\$c\"\`;";;
\[) C="$C while [[ \${s[\$p]} > 0 ]]; do ";;
\]) C="$C done;";;
esac; done < $1;
eval $C
После этого рисуем на листе. Не понравилось — оторвали его и рисуем на следующем.
Понравилось — оторвали его, и отложили в папочку готовых набросков.