All streams
Search
Write a publication
Pull to refresh
1
0
Александр @DivisionBy0

User

Send message
но она же появилась. и, думаю, не просто так :)
мне кажется, что sociatop.ru будет продуктом, а Сочи-2014 — просто тест системы :)
>>На сайте talismansochi2014.ru/ мы ничего не заработали (да и не ставили мы себе такой цели)

а реклама вашего же sociatop.ru — не считается?
или вы откроете исходники?
что-то мне кажется, что просто пиарище.
даже нет, ПИАРИЩЕ.
еще и номера ячеек. их 3000, поэтому нумерация от 0 до 2999:
#!/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.
Замечательный результат! Уважаю!
упс, видимо и правда промахнулся. моя ошибка.
но все же, они смотрели именно онлайн.
ведь просмотр онлайн-плеером никак факт «скачки» не отменяет.
Они смотрели серии с сайта ТНТ, где все могут смотреть их бесплатно.
Какие иски? Вы о чем?
<сарказм>
«Да и вообще, информацию тут недолюбливают.»
</сарказм>
бесспорно. я и не говорю о таком готовом решении.
да и сейчас все беспроблемно берут Linux.
допиливается, думаю, крайне быстро.
тот же Samsung, например. сам имею такой ТВ.

а тут — будут брать Chrome OS, платить денюжку Google, это да.
апдейт:
[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
А не проще взять обычный бумажный блокнот, на первом листе нарисовать верх браузера, и отрезать лишок?
После этого рисуем на листе. Не понравилось — оторвали его и рисуем на следующем.
Понравилось — оторвали его, и отложили в папочку готовых набросков.
2

Information

Rating
Does not participate
Location
Россия
Registered
Activity