Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/perl
- #2016/12/07
- #paiza
- use 5.010;
- use strict;
- my @anser;
- my $keta; chomp($keta = <STDIN>);#桁
- my $temp; chomp($temp = <STDIN>);#行
- my @yoko = split(/ /, $temp);#暗号表10桁
- chomp($temp = <STDIN>);#行
- my @tate = split(/ /, $temp);#暗号表10桁
- for (my $i=0;$i<$keta;$i++){
- for(my $j=0;$j<$keta;$j++){
- $anser[$i][$j]= @tate[$i]+@yoko[$j];
- };
- };
- foreach my $col (@anser){
- say join(" ",@{$col});
- };
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement