プログラミングのお題スレ Part13at TECHプログラミングのお題スレ Part13 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞのURL■項目テキスト750:デフォルトの名無しさん 19/03/17 12:19:22.82 gm8A83sV.net 自転車修理屋さんが機械に強いけどコードなんて、かけなさそう 751:デフォルトの名無しさん 19/03/17 12:38:59.54 TUY5K+QC.net >>728 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 752:デフォルトの名無しさん 19/03/17 12:40:50.32 TUY5K+QC.net >>735 の実行結果 ~ $ perl 13_723.pl 29 +15 --- 3 14 --- 44 29 +5 --- 2 14 --- 34 せっかくのスペース調整が詰まっちゃって残念なのでアンカーでポップアップして見てね >>736 753:デフォルトの名無しさん 19/03/17 12:41:06.87 PfKDQB+U.net >>730 C++ https://ideone.com/Mvx9Mp 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch