[過去ﾛｸﾞ] プログラミングのお題スレ Part13 (1002ﾚｽ)

プログラミングのお題スレ Part13 http://mevius.5ch.net/test/read.cgi/tech/1549160513/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

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

---

747: デフォルトの名無しさん [sage] 2019/03/21(木) 14:37:03.32 ID:Krn8F3T2 >>746 Perl5 @a = map{[split]} <DATA>; for $y (0..$#a) { 　$h{$a[$y][$_]} = [$y,$_,''] for 0..$#a; } @s = keys %h; %r = qw{-1,0 ↑ 1,0 ↓ 0,-1 ← 0,1 →}; for $i (1..@s) { 　if ($i == @s) { 　　$d = '★' 　} else { 　　$y = $h{$i+1}->[0] - $h{$i}->[0]; 　　$x = $h{$i+1}->[1] - $h{$i}->[1]; 　　$d = $r{"$y,$x"} 　} 　$h{$i}->[2] = $d; } ($y, $x, $d) = @$_, $a[$y][$x] = $d for values %h; use feature say; say "@$_" for @a; __DATA__ 1 4 5 6 2 3 8 7 15 14 9 10 16 13 12 11 実行結果 ~ $ perl 13_746.pl ↓ → → ↓ → ↑ ↓ ← ↓ ← → ↓ ★ ↑ ← ← http://mevius.5ch.net/test/read.cgi/tech/1549160513/747

755: 747 [sage] 2019/03/22(金) 23:30:54.68 ID:DMg7GUli code、ﾌﾟﾘｰｽﾞ http://mevius.5ch.net/test/read.cgi/tech/1549160513/755

---

ﾒﾓ帳

(0/65535文字)

---

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

---

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

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.046s