Advertisement
Guest User

Untitled

a guest
Dec 7th, 2016
75
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.42 KB | None | 0 0
  1. #!/usr/bin/perl
  2. #2016/12/07
  3. #paiza
  4.  
  5. use 5.010;
  6. use strict;
  7. my @anser;
  8.  
  9. my $keta; chomp($keta = <STDIN>);#桁
  10.  
  11. my $temp; chomp($temp = <STDIN>);#行
  12. my @yoko = split(/ /, $temp);#暗号表10桁
  13.  
  14. chomp($temp = <STDIN>);#行
  15. my @tate = split(/ /, $temp);#暗号表10桁
  16.  
  17. for (my $i=0;$i<$keta;$i++){
  18. for(my $j=0;$j<$keta;$j++){
  19. $anser[$i][$j]= @tate[$i]+@yoko[$j];
  20. };
  21. };
  22.  
  23. foreach my $col (@anser){
  24. say join(" ",@{$col});
  25. };
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement