[ create a new paste ] login | about

Link: http://codepad.org/8BD5WPWo    [ raw code | output | fork ]

Perl, pasted on Apr 12:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
$_ = "ワン         ワワンワ              ンンワ     ンワ    
      ンワ               ンワン             ワンワ   ンワ     
    ワン                    ワンワ            ンワンワンンワン  
   ンワ                       ンワ       ンンンワンワンワンワンワ    
  ワン                        ワン     ワンンンワン ワン      ワン    
 ンワ                          ンワ   ンワン  ワン ワン         ワン  
ワン                          ワンワ  ンワ     ンワン            ワン 
ンワ                           ンワ   ンワ     ンワン             ワン
ワン                            ワン   ワン    ワワワン           ワン
ンワ                           ンワ    ンワ    ンワンワ           ンワ
ワン                            ワ     ンワ   ンワンワン          ワン
ン                                     ワン   ワン   ワン      ワンワ
ワ                                      ワン ワン     ワン   ワンワワワン
ンワン   ワ                              ンワン        ワ   ンワ    ワゥゥン
  ンワ  ンワ                              ワンワ            ワウゥゥン  ワン
   ンワンワ                                 ンワ               
    ンワ
";$a=(s/ワワン//g);$b=(s/ンワ//g);$b/=$a*$a;s/ //g;
split(/\n/,$_); print ((/$a/||$_%$a==0||$_%$b==0)?"$_[$_%$b], ":"$_, ") for(1..100);


Output:
1
1, 2, ��, 4, ����, ��, 7, 8, ������������, ����, 11, �����, ��, 14, ����, 16, 17, ��, 19, ����, ��, 22, ��, ������������, ����, 26, �����, 28, 29, ����, ��, �����, ��, ������������, ����, ��, �����, ��, ������������, ����, 41, �����, ��, 44, ����, 46, 47, ��, 49, ����, ��, 52, ��, ������������, ����, 56, �����, 58, 59, ����, 61, 62, ��, 64, ����, ��, 67, 68, ������������, ����, 71, �����, ��, 74, ����, 76, 77, ��, 79, ����, ��, 82, ��, ������������, ����, 86, �����, 88, 89, ����, 91, 92, ��, 94, ����, ��, 97, 98, ������������, ����, 


Create a new paste based on this one


Comments: