ﾚｽ書き込み

ｽﾚへ戻る 写 ﾚｽ栞 ﾚｽ消

---

プログラミングのお題スレ Part22

PC,ｽﾏﾎ,PHSは ULA べっかんこ 公式(ｽﾏﾎ) 公式(PC) で書き込んでください｡

名前
ﾒｰﾙ
引用切替：ﾚｽｱﾝｶｰのみ
>>216 > >>208 Perl5 > > use feature qw{:5.16 signatures}; > no warnings qw(experimental::signatures); > @s = qw[a1=a2 b1=b2 b3=b2 c1=c2 e1=e2 a3=a4 c3=c4 e1=e3 a2=a4 c3=c1 b3=a4 c2=d1 a4=a5 d2=c1 b4=b3 d3=c3]; > for (map{[sort /(\w+)=(\w+)/]} @s) { > 　($l, $r) = @$_; > 　$g{$r} //= $g{$l} //= $g{$r} // $l; > 　$h{$g{$r}} = $g{$l} if $g{$l} ne $g{$r}; > } > $h{$k} = sub($e){$h{$e} ? __SUB__->($h{$e}) : $e}->($v) while ($k, $v) = each %h; > $g{$_} = $h{$g{$_}} // $g{$_} for keys %g; > push @{$r{$v}}, $k while ($k, $v) = each %g; > say "@$_" for values %r; > > ※見易くするためインデントを全角スペースに置換してあります > > > 実行結果 > $ perl 22_206_grouping.pl > b3 a3 a5 b4 a4 a1 b1 a2 b2 > c1 d1 d3 c3 c2 d2 c4 > e3 e1 e2
ﾛｰｶﾙﾙｰﾙ SETTING.TXT

---

他の携帯ﾌﾞﾗｳｻﾞのﾚｽ書き込みﾌｫｰﾑはこちら｡書き込み設定で書き込みｻｲﾄの設定ができます｡
・ULA
・べっかんこ(身代わりの術)
・べっかんこ(通常)
・公式(ｽﾏﾎ)
・公式(PC)[PC,ｽﾏﾎ,PHS可]

---

書き込み設定(板別)で板別の名前とﾒｰﾙを設定できます｡

---

ﾒﾓ帳

(0/65535文字)

---

上下板覧索設栞歴

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.023s