七行プログラミング part2

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

900:デフォルトの名無しさん
02/09/26 03:16
900達成！　PART.2とPART.1未達成やその他スレの話題まとめ >>901
○７行達成されているもの　　×未達成のもの

※レス番号では提示したり達成したりした番号を表示
※おふざっけぽいものは抜いてありますが、ホカソ希望はご自由に
※次のスレでこのレス番号を記載するか、コピペしてください
※間違いがあったらごめんね

901:デフォルトの名無しさん
02/09/26 03:16
ゲーム系
○スロットゲーム　>>16
○迷路　>>171 >>366 >>472-473
○ピンポン　>>191
○テトリス　>>212
○障害物よけゲーム　>>224
○パックマソ　>>313
○15パズル　>>561 >>591
○暇つぶしゲーム　>>746
×ブロック崩し　>>643 >>642
×詰めロードランナー　>>634-635>>651
×3D迷路　>>662 >>698
×囲碁　>>757 >>771
×はさみ将棋　>>863 >>865
×○ラクエ　>>894-895
×将棋（ｽﾚﾘﾝｸ(tech板:760-761番)）　>>897

902:デフォルトの名無しさん
02/09/26 03:17
圧縮
○ブロックソーティング　>>386-387
○rangecoder　>>512-513>>553
○Huffman符号　>>572 >>750 >>752
○スライド辞書圧縮　>>580 >>596 >>600 >>616 >>629
○RLE　>>696 >>728
○アーカイバ　>>729 >>736 >>739 >>741
○LZW　>>799

903:デフォルトの名無しさん
02/09/26 03:18
グラフィックス
○PDTビューワ　>>70
○フラクタル画像出力　>>108 >>703-705
○アスキーアート　>>202
○バナー生成　>>204
○bmp2ppm　>>474>>>476
○PNG　>>491
○マンデルブロー　>>514
×BMP　>>131
×レイトレーシング（ｽﾚﾘﾝｸ(tech板:209番)）　>>711
×波紋　ｽﾚﾘﾝｸ(tech板:678番)
×パーティクル　ｽﾚﾘﾝｸ(tech板:675-676番)

904:デフォルトの名無しさん
02/09/26 03:19
計算
○素数列挙　>>74 >>81 >>810
○CRC　>>447-448
○DCT　>>462 >>468
○ヒルベルト曲線　>>644 >>652
○SHA1　>>668 >>724
○円周率　>>827

ネットワーク
○proxy　>>208
○SMTPクライアント　>>285-286
○SNTPクライアント　>>311-312
○POPクライアント　>>475
○jis2sjis　>>496-497>>506
×FTPもどき　>>332
×POPクライアント＋jis2sjis　>>510
×チャット　>>529 >>547

905:デフォルトの名無しさん
02/09/26 03:21
ツール
○インデントツール　>>105 >>129 >>129 >>854
○ひたんぼ語フィルタ　>>317 >>321
○時計　>>410
×インデントツール　>>327
×grep　>>896

デモ
○ねたをくれなんていってる時点で間違ってたんだ…（ｗ　>>350 >>363
○砂嵐　>>384

906:デフォルトの名無しさん
02/09/26 03:22
言語　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
○FORTHもどき　>>841　　　　　　　　　　　　　　　　　　　　　　　　　　　　
×BASIC（ｽﾚﾘﾝｸ(tech板:497-518番)）　>>626
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
その他　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　
×FreeBSDのdmesg|head -6を表示　>>730　　　　　　　　　　　　　　　　　　

907:前スレ853
02/09/26 04:36
あー。Perl 用空白除去ツールは 7 行達成してます。

$_=join" ",grep{s/(^\s*#.*)|\s+/ /g;length}<>;%k='()<>[]{}'=~/./g;s~(.*?)((?:
(?:(?<![\$\%\&\*\@])(?:(?:m|q[qrwx]?)(?:([(<[{]).*?$k{$3}|([^(<[{ \w]).*?\4)|
(?:s|tr|y)(?:([(<[{]).*?$k{$5}\ *\5.*?$k{$5}|([^(<[{ \w]).*?\6.*?\6))|(?<![\w])
/(?:\\/|[^/])*/)[a-z]*)|"(?:\\"|[^"])*"|'(?:\\'|[^'])*')~push@c,$1,$2;''~egx;$q
=$c[0]=~m!^["'/]|([msy]|q[qrwx]?|tr)[^ \w]!;($_,@c)=map{++$q%2?split:$_}@c,$_;
sub j{$_.=$_[0].shift@c}sub l(){length$_.$c[0]}sub p{print"$_\n";$_=shift@c}sub
w(){/\w$/&&$c[0]=~/^\w/}78<l?79<l?p:w?p:j&&p:w?j" ":j while@c;p;

コメント付きはここに。
URLﾘﾝｸ(boobar.hoops.ne.jp)

次ページ