- プログラミングのお題スレ Part4
550 :デフォルトの名無しさん[sage]:2014/07/21(月) 18:23:55.37 ID:6zuG3xNl - >>549 Perl
@result=(); while(<DATA>) { @data = split(//); for($i=0; $i<=$#data; $i++) { $result[$i]=$. if $data[$i] eq '1'; } } print join("", @result); __DATA__ 145327698 839654127 672918543 496185372 218473956 753296481 367542819 984761235 521839764
|
|