[過去ﾛｸﾞ]
プログラミングのお題スレ Part13 (1002ﾚｽ)
プログラミングのお題スレ Part13 http://mevius.5ch.net/test/read.cgi/tech/1549160513/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索
歴削→次ｽﾚ
栞削→次ｽﾚ
過去ﾛｸﾞﾒﾆｭｰ
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
601: デフォルトの名無しさん [sage] 2019/03/11(月) 10:48:42.57 ID:u4Ymakq9 お題： 下の例のような入力から例の出力のアスキーアートを出力する。それ以外は自由 例： 入力： >>>>>vvvvv<<<<^^^^ 出力： >>>>> ^****v ^****v ^****v ^****v <<<<v http://mevius.5ch.net/test/read.cgi/tech/1549160513/601
604: デフォルトの名無しさん [] 2019/03/11(月) 11:45:13.16 ID:+cahZmCl >>601 それ3番目と4番目は必ず1番目と2番目の長さ-1になってるの？ http://mevius.5ch.net/test/read.cgi/tech/1549160513/604
612: デフォルトの名無しさん [sage] 2019/03/11(月) 16:58:12.79 ID:PGatxMde >>601 出力おかしくねぇ？最初と最後の行は5列だけど 間の行ぜんぶ6列になってるぞ？ 出力： >>>>> ^****v ^****v ^****v ^****v <<<<v こうじゃね？ >>>>> ^***v ^***v ^***v ^***v <<<<v http://mevius.5ch.net/test/read.cgi/tech/1549160513/612
614: デフォルトの名無しさん [sage] 2019/03/11(月) 19:21:39.70 ID:PGatxMde >>601 javascript 長くなっちった https://ideone.com/vzncKq 入力： <<<<^^^^>>>>>vv<<<<<<<<<<<vvv>>>^^^^^^^>>>>>>>>>>vvvvvv 出力： ***^>>>>>>>>>> ***^*********v ***^**^>>>>>*v ***^**^****v*v <<<^<<<<<<<v*v v**^**^******v v**^**<<<<***v v>>>********** http://mevius.5ch.net/test/read.cgi/tech/1549160513/614
620: デフォルトの名無しさん [] 2019/03/11(月) 21:31:45.37 ID:1OBeL2+Y >>601 Common Lisp, >>614の移植 https://ideone.com/B76Dki http://mevius.5ch.net/test/read.cgi/tech/1549160513/620
641: デフォルトの名無しさん [] 2019/03/12(火) 23:27:43.44 ID:LDiZRGdZ >>601 Common Lisp >>620のリファクタリング ついでに * を空白に、開始地点を A、終了地点を Z にしてみた https://ideone.com/zMHal6 Python https://pastebin.com/NAGHLtcu 実行結果 https://webmshare.com/Ma3gZ http://mevius.5ch.net/test/read.cgi/tech/1549160513/641
655: デフォルトの名無しさん [sage] 2019/03/14(木) 01:08:57.36 ID:vRIsxo2e >>601 Perl5 $s = '>>>>>vvvvv<<<<^^^^'; ($i, $y) = (0, 0); for (split'',$s) { $i++ if />/; $i-- if /</; $j++ if /v/; $j-- if /\^/; push @t, [$i, $j, $_]; } use List::Util qw{min max}; ($i, $j) = (min(map{$$_[0]} @t), min(map{$$_[1]} @t)); $$_[0] -= $i, $$_[1] -= $j for @t; ($i, $j) = (max(map{$$_[0]} @t), max(map{$$_[1]} @t)); push @m, [('*')x($i + 1)] for 0..$j; $m[$$_[1]][$$_[0]] = $$_[2] for @t; use feature say; say @$_ for @m; 実行結果 ~ $ perl 13_601.pl >>>>> ^***v ^***v ^***v ^***v <<<<v http://mevius.5ch.net/test/read.cgi/tech/1549160513/655
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.031s