- プログラミングのお題スレ Part4
624 ： ◆Cn6bJfqbWU [sage]：2014/07/27(日) 03:13:48.28 ID:MQVey8+4 - >>549 Perl (ちょっとFunctioal風に)
pint for
map{$$_[1]}
sort{$$a[0]<=>$$b[0]}
map{[index($_,1), ++$i]} <DATA>;
__DATA__
145327698
839654127
672918543
496185372
218473956
753296481
367542819
984761235
521839764
| - プログラミングのお題スレ Part4
625 ： ◆Cn6bJfqbWU [sage]：2014/07/27(日) 03:20:51.87 ID:MQVey8+4 - >>624 あんれ？ がそのまま見えちゃうorz 半角スペースでインデントしてみると
pint for
map{$$_[1]}
sort{$$a[0]<=>$$b[0]}
map{[index($_,1), ++$i]} <DATA>;
__DATA__
145327698
839654127
672918543
496185372
218473956
753296481
367542819
984761235
521839764
| - プログラミングのお題スレ Part4
626 ： ◆Cn6bJfqbWU [sage]：2014/07/27(日) 03:31:36.45 ID:MQVey8+4 - >>625 ゴメン誤記があった
× pint for
○ print for
| - プログラミングのお題スレ Part4
627 ： ◆Cn6bJfqbWU [sage]：2014/07/27(日) 03:55:12.40 ID:MQVey8+4 - >>625 Perl もう少しスマートに
print values %{{sort {$$a[0]<=>$$b[0]} map{index($_,1)=>++$i} <DATA>}};
__DATA__
145327698
839654127
672918543
496185372
218473956
753296481
367542819
984761235
521839764
5.16までなら下記でおｋで、5.18は多分だめだと思うｗ、なぜでしょうねｗ
print values %{{map{index($_,1) => ++$i} <DATA>}};
__DATA__
145327698
839654127
672918543
496185372
218473956
753296481
367542819
984761235
521839764
| - プログラミングのお題スレ Part4
630 ： ◆Cn6bJfqbWU [sage]：2014/07/27(日) 05:13:36.84 ID:MQVey8+4 - ﾏﾝﾄﾞくせぇｵｼﾞｻﾝだな、素直にlambdaで再帰よろ…
ｵﾚ様はﾂﾝﾃﾞﾚじゃないけれど…
つ
sub f {
$n++ while ($m = $p*$n % $x) > 1;
$m ? $n : 'false'
}
($p,$x,$n) = (213,16,1); say f;
($p,$x,$n) = (214,16,1); say f;
($p,$x,$n) = (333,29,1); say f;
|
|