File: ambiguous.pl

package info (click to toggle)
libjcode-pm-perl 2.07-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 1,440 kB
  • sloc: perl: 14,814; ansic: 11,032; makefile: 3
file content (15 lines) | stat: -rw-r--r-- 277 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
#!/usr/local/bin/perl
#use Jcode::Constants 

my $n = 0; my $str = "";
for my $c2 (0340..0374){
    for my $c1 (0200..0374){
	if ($n++ % 32 == 31){ # LF for every 32 zenkaku chars
	    print $str, "\n"; $str = "";
	}else{
	    $str .= chr($c2) . chr($c1);
	}

    }
}
warn $n;