七行プログラミング part2

七行プログラミング part2 at TECH

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

300:デフォルトの名無しさん
 02/05/13 00:00
300!!!

301:VB厨
 02/05/13 00:28
>>299 
スマン。

302:デフォルトの名無しさん
 02/05/13 00:37
>>301 
謝ってくれる人は心優しい人だね。 
バカとは自分がバカと言うことに気が付いていないからバカなんだ。 
>>301さんは賢人のようです。

303:デフォルトの名無しさん
 02/05/13 01:48
>295 
MSXべーしっくがいいと思う。スペースすら省略可能だし。 
PRINTは ? で書けるし。（LIST取ったら伸張されちゃうけど）

304:デフォルトの名無しさん
 02/05/13 13:21
>>303 
N88でいいじゃん。?も同様だし。

305:前775
 02/05/13 16:34
あー、なんか、、スレ間違えたかと思った。 
昔は文章よりプログラムの方が多いくらいのスレだったのに・・。

306:前スレ853
 02/05/13 18:23
Perl は全ての変数にプレフィクスが付く分、極まってくると 
画面密度が上がる。 
 
ex. 
($n,$p,@e)=split/,/,<>;$_=<>;$j=(@m=map{split//}$_,<>)-($k=($c=length)-2)-2;@g= 
('.')x@e;$t=0;sub w{(*z,$g)=@_;$m[$i=$z+($z%$c?-1:$k,$z>=$j?-$j:$c,$z<$k?$j:-$c 
,$z%$c==$k?-$k:1)[--$g]]eq'#'||$l&&grep$i==$_,@e or$z=$i}sub u{@m[@e,$p]=@_}sub 
r{1+int rand 4}while($m[$p]ne'*'or$t+=$n){u(('m')x(@g=@m[@e]),($d=grep$p==$_,@e 
)?'D':'C');$r=grep/[*.]/,@m,@g;print@m,"R:$r T:$t >";$r&&($t||!$d)?u@g,' ':exit 
;$l=0;w*p,<>%5||next;for(@e){if(($w=$e=pop@e)-$p){w*w,$w%$c-$p%$c?int$w/$c-$p/ 
$c?r:$w<$p?4:1:$w<$p?2:3;w*w,r while++$l%9&&$w==$e}@e=($w,@e)}$t--if$t}

次ページ