Help for this page

Select Code to Download

Select or download this

C:\test>p1
@a = map int rand( 1e16 ), 1 .. 10;;
...
$s = join ' ', @a;;
print total_size $s;;
216

Select or download this

$a = pack 'Q*', @a;;
 print total_size $a;;
136