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

[730 デフォルトの名無しさん 2019/03/17(日) 12:38:59.54 ID:TUY5K+QC]

>>723 Perl5

for (<DATA>) {
　($l, $o, $r) = split;
　@l = $l =~ /(\d?)(\d)/;
　@r = $r =~ /(\d?)(\d)/;
　$a1 = $l[0] + $r[0];
　$a0 = $l[1] + $r[1];
　@a1 = $a1 =~ /(\d?)(\d)/;
　@a0 = $a0 =~ /(\d?)(\d)/;
　$a = 10*$a1 + $a0;
　$" = '';
　print <<"EOF";
@l
$o@r
---
@a1
@a0
---
$a

EOF
}
__DATA__
29 + 15
29 + 5