hlmarkc Goto Github PK

bigx.pl

#!/usr/bin/perl -w 2 3 $n=$ARGV[0]; 4 @s = ("x" , " " ); 5 6 for ($i=1; $i<=$n; $i=$i+1){ 7 8 $arm1= $s[1] x ($i-1). $s[0]; 9 $arm2= $s[1] x ($n*2+1-$i*2). $s[0]; 10 11 print "$arm1$arm2" ."\n"; 12 } 13 14 print $s[1] x $n.$s[0]."\n"; 15 16 for ($i=1; $i<=$n; $i=$i+1){ 17 18 $arm1= $s[1] x ($n-$i). $s[0]; 19 $arm2= $s[1] x ($i*2-1). $s[0]; 20 print "$arm1$arm2" ."\n"; 21 }

cpd.pl

count frequencies of different numbers and show an accumulative frequency.

median.pl