Help for this page
a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a
a a a a a a ... a a a a a a a a a a a a a a a a a a a a
The same principle ... basically splitting words only on spaces or new lines
/[ ]+/
open F,"ctriangle.txt";sub n{print " "x(40-$r/2)."$x\n"};for(split/[ ]+/,join'',<F>){$c=$r,n,$x=''if( $r=length($x.=" $_"))>$c}n
open F,"ctriangle.txt";sub n{print " "x(40-$r/2)."$x\n"};$/=$w;$_=<F>; for(split){$c=$r,n,$x=''if( $r=length($x.=" $_"))>$c}n
www.com | www.net | www.org
No recent polls found