[過去ﾛｸﾞ] プログラミングのお題スレ Part13 (1002ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

601(6): 2019/03/11(月)10:48 ID:u4Ymakq9(1/2)調 AAS
お題：　下の例のような入力から例の出力のアスキーアートを出力する。それ以外は自由
例：
入力：　>>>>>vvvvv<<<<^^^^
出力：
>>>>>
^****v
^****v
^****v
^****v
<<<<v

---

604(2): 2019/03/11(月)11:45 ID:+cahZmCl(1/5)調 AAS
>>601
それ3番目と4番目は必ず1番目と2番目の長さ-1になってるの？

---

612: 2019/03/11(月)16:58 ID:PGatxMde(1/2)調 AAS
>>601
出力おかしくねぇ？最初と最後の行は5列だけど
間の行ぜんぶ6列になってるぞ？

出力：
>>>>>
^****v
^****v
^****v
^****v
<<<<v

こうじゃね？
>>>>>
^***v
^***v
^***v
^***v
<<<<v

---

614(2): 2019/03/11(月)19:21 ID:PGatxMde(2/2)調 AAS
>>601 javascript
長くなっちった
https://ideone.com/vzncKq

入力： <<<<^^^^>>>>>vv<<<<<<<<<<<vvv>>>^^^^^^^>>>>>>>>>>vvvvvv
出力：
***^>>>>>>>>>>
***^*********v
***^**^>>>>>*v
***^**^****v*v
<<<^<<<<<<<v*v
v**^**^******v
v**^**<<<<***v
v>>>**********

---

620(1): 2019/03/11(月)21:31 ID:1OBeL2+Y(1)調 AAS
>>601 Common Lisp, >>614の移植
https://ideone.com/B76Dki

---

641: 2019/03/12(火)23:27 ID:LDiZRGdZ(1)調 AAS
>>601 Common Lisp
>>620のリファクタリング
ついでに * を空白に、開始地点を A、終了地点を Z にしてみた
https://ideone.com/zMHal6

Python
https://pastebin.com/NAGHLtcu
実行結果 https://webmshare.com/Ma3gZ

---

655: 2019/03/14(木)01:08 ID:vRIsxo2e(1/2)調 AAS
>>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

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.054s