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

---

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

---

688(1): 2019/03/15(金)00:00 ID:27sSd34q(1/2)調 AAS
>>653 Perl5

use feature current_sub;
@is = (['0.1.2', '0.0'], ['1.2.3', '1.3'], ['0.0.0', '0.0']);
for (@is) {
　($l, $r) = @$_;
　@l = split'\.', $l;
　@r = split'\.', $r;
　$z = sub {
　　my $a = shift @l;
　　my $b = shift @r;
　　if (defined $a or defined $b) {
　　　$a //= 0;
　　　$b //= 0;
　　　$a <=> $b or __SUB__->()
　　} else {
　　　0
　　}
　}->();
　%d = (-1 => ' <', 0 => '==', 1 => '> ');
　print "$l $d{$z} $r : $z\n";
}

実行結果
~ $ perl 13_653.pl
0.1.2 > 0.0 : 1
1.2.3 < 1.3 : -1
0.0.0 == 0.0 : 0

---

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

---

あと 314 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 0.011s