Monthly Archives: August 2014
perl -e ‘use List::Util qw(max min sum); @a=();while(<>){$sqsum =$_*$_; push(@a,$_)}; $n=@a;$s=sum(@a);$a=$s/@a;$m=max(@a);$mm=min(@a);$std=sqrt($sqsum/$n-($s/$n)*($s/$n));$mid=int @a/2;@srtd=sort @a;if(@a%2){$med=$srtd[$mid];}else{$med=($srtd[$mid-1] $srtd[$mid])/2;};print “records:$nnsum:$snavg:$anstd:$stdnmed:$mednmax:$mmin:$mm”;’
perl -e ‘use List::Util qw(max min sum); @a=();while(<>){$sqsum =$_*$_; push(@a,$_)}; $n=@a;$s=sum(@a);$a=$s/@a;$m=max(@a);$mm=min(@a);$std=sqrt($sqsum/$n-($s/$n)*($s/$n));$mid=int @a/2;@srtd=sort @a;if(@a%2){$med=$srtd[$mid];}else{$med=($srtd[$mid-1] $srtd[$mid])/2;};print “records:$nnsum:$snavg:$anstd:$stdnmed:$mednmax:$mmin:$mm”;’
GoComics
GoComics
“Vivieron felices y comieron perdices” (They lived happy and they ate partridges).
“Vivieron felices y comieron perdices” (They lived happy and they ate partridges).