#!/usr/bin/env perl use strict; use warnings; my $rand_bias; # Boolean (for testing) my ($x_high, $y_high) = (80, 80); my $N = 10_000; for my $rand_bias_bool (0, 1) { $rand_bias = $rand_bias_bool; print '*** ', $rand_bias ? 'WITH' : 'NO', ' RANDOM BIAS', " ***\n"; my @points = map [ gen_rand($x_high), gen_rand($y_high) ], 1 .. $N; print_matrix(\@points); } sub gen_rand { my $rand_high = shift; return int rand $rand_high unless $rand_bias; # For testing only! my $high_part = $rand_high; my $rand_sum = 0; while ($high_part) { my $rand_arg = 1 + int rand $high_part; $high_part -= $rand_arg; $rand_sum += int rand $rand_arg; } return $rand_sum; } sub print_matrix { my $coords = shift; my %matrix; for (@$coords) { my ($x, $y) = @$_; ++$matrix{$x}{$y}; } for my $y (reverse 0 .. $y_high - 1) { for my $x (0 .. $x_high - 1) { if (exists $matrix{$x}{$y}) { $matrix{$x}{$y} = '@' if $matrix{$x}{$y} > 9; } else { $matrix{$x}{$y} = ' '; } print $matrix{$x}{$y}; } print "\n"; } } #### *** NO RANDOM BIAS *** 2 1123 1213 41542213214122 21221 42 2343422 1 333 212111 1213141121211 12321 1 1211123132 231223134233 1 111211313 2432412211 2 2 224 1 14 31 211121 31 3 2 12143342121 211 22 11 623132 22211 112121111112 3133 24311332111 1221122223 11 3 314331 2 4134131 1111 1121 212214 1 4124111 231 2 11311211312 12412111 251 321311 112145214 1111 32112 41441313 1321113213 3 3 213312114 2222 13 32 4 12 231 123 15132 3 1 11114 2222 2 11421132 1 22 124 41122132331313 11122 1 122 2312112 12122 2143111123132 122 2123 1233 2 1 322 1121421 13421 211217123 51221133 11221222 22 1 4132111221112332 3141122 1211222441221 3132223211 1232 2 2231 11123111221 13 1131611234134 13131316 2111133 1 41 1111 2422 3321 211122 322 2 12111131 11 2231111152341121113 13 3223332 1 321 241121 132 423313226 2 3132111 2 2 231232 1241624132115221 23322242 13412321112 11 1 132222433 2 3 123133123 11213 21111 3311 122342 1 2 21211 121 115211111 22 3321 1211 32 3211 22 11 4154123 11111 314311 222122 2512 22 1243 1111 322 112442 12 251321 22 1 331 21 231 113121122 131 112 3 2441312 214122212 21113 41221232522 313 2113 2 222213 1113442 334 12132 25322 141 22 113111 2 321 13321 56223 3233312432 11 12 2 221141122 3 2 2333 2 3 2253131132 3122113112131 23 12 24 22252121523 2 3 25 121112 3 1 32 4131232233 123 2 123 1121 1224 24152111131 2 1 211 3 2121 2211 33211132312 3131 21 2211313312212331222 231 2131 211 2231111221 2212221 2231 2112211 124 1332 12 1 114411121 2 21115321121 35 32322 1422 1 1 22 521 233131231211313111 1231223222 3 2 2332 1224 1211 1 141 13211211331 12 21312411 121 123331 132 2 3121232233431412 22 132123234 21 11 113223 2 334 3 1 12111 1132112 12 1422 1 21 41 2213 11311 143 3211122 31 1142 2 1 22 1 2212313141 121 11424221113 2212111123 3242 22 321 31 1424 221 117111214 221 1 322211312 2212312 121414122131132131132321311121213111 2 114311211 1 5 2 2 1 2 2 213 23 2 2212 2 3133 2131 5123223 23 21 532 22 1 1341324213331122113 2342 322232131 13 23311 3 31 3334 121 1214112 1 3 21312 13 123 222111 1131411 1211 3124141222111 13 2112 31 22242 121231131 224211 323421332221532231324132313 11613 2111 1113124322 3 2 3121112 112314 322123211 221311 1 21113521231 42 113111 332 112 134121121 21 143422 31 512212 5 33 24221142 4333 2221111112113 3 23 51 11 221 11212 221 521111113251424 315 212131112221 1 11332214521 1322 41652 2 22121213211532132111 2413112112312 311332 13 31 5111 3224 11214 3332221 1 3211 2111141 211211 1 1212 1 1 111 1 23 151641 3 231 3 5 122 11 22112 2123 11231 1142114321 22242321132 1 14221 2311 211121311 31 212 1231 1 2 452111 2 111 1412111312 2 3122 21231 6 33 332211 12112311231 21121214 1121132 12132131 1321 41212441113 3 141 4326412 1312 112231 231121122222 3 3 1121 321 12112 1 11 1 131 1332 12 1 14 22241133 41241 2222 422 33 223 333322 1 1823 11 22171 11412 1 1221 4 2 2211354231 1321211222214 22223 122 2211312421 2 112 12 2111 2 23162321 121211 3 2243213413 32 1 31 11 4 2 4121 32423 1 8 51 212413212 212 1 1124 1 211121 322132 132423 1122221 125211 1 1211 151222 11323 131211 12111 4124 2 24231314211 2 14 212143 112142 1322 2212 3 142341331 23341122 225221112111321321322 1 46123123413131 113212421224233 33 2 22 113413121233321 424 231113 31212122423123 34311 112 322 5131122 32 32 1 123 13 211151121323 321 121412121 3 2321312141 1 311 2121113113 2 212112 13 1111 3 11142222 2 23 51 14223311113 212 43431112 2221 11 24 2122 21 1113321211112222 11152213 122 32121 2 23 323223132 21132 22221231 211 323213 22221321 333 2 32 11 411 3 1 545 111111 122323324 3 33232 122 1121 3 2 2 3 31312112223 21233 4231121 14 42 2 2321 2111 3 1111111 342 31 14 34112 11122 214 121 21134115143121322231 2 111322131 32 33 1512 122313412 311332215 11131 2 221 22122324 1 233142 122 1 111 42 11 21 1222 12111 211 3 322 3 13 11 12122212 12 133 2 2 421 22212 12 1312 311341311 1332 53224121111344321 62121122221 214 21122 331 32 3 2 21151 11 113213 12141 12112 1212121214 1 3 1 312 332312221332 22212212 1 111211 1 42 12132134 3 4242 2 212 22232411161153222 2321112 214132 4 121 22 2222 11231123521 21112 33 1122322 21342121122 12 111 32111311 121233122212 1 2 12 11 21111 41531 2132 211 145121 2 2 12 21 22221 11 2212112121 11 12 61232121 4112141331221 2 32 2 3 1 2 332413111 21 231 21 1142221 322331 23 32 2 2134 2224 131 13511211121 41 32112212 32111112 2 1331212243213121 11 33121212 112 2321212123 13213 124 241 3232 321 34 311 2 1 1222222442 122131 1 311 221141421 1123 243 142111 1 2 4121321222 211231 23111 14141122 1113 14211341225 3 1122233 12232 152113321122 421122 14311211511 3111131232111252 223132 2112 24411325 1222222 1323 1 1 221 23223335111 14 31233231211 11122221112122 1113221 3123 1 1121125 2 1221 24231 122 24433232211 313431 133 1222133 1543 22132 32 252211 311212121322122632 243 212241334144 2 24411312311312 2111211 2 511 213 22231 125 133 132 1213 32 22 3 4 4321212 2132 2 23 232131 11323 11 214 21321211 31 12 211 321121221 121 2 3111213121142 121 1221311331111135111112123131311121 2 121 21211112113 3 624 7 21 11 11322145 124 1131112211 1 3371 321 1214121 412122 21 3121 1 1213 32 1 41122122 25111 123122 2 11131 123 11223124 31 2 1 511322 11311133 111411 523 1211 2211123223231 1 2 11 2 112 21222 2111231 225351221 2111331211 4113 113 241 4 432 4 1222113 33412211 21 2111 21322111131211 114 411 12 14 122212 221 2 11412122 3 12 152 112113322 11421433112 22 1 241311212121 11 2211233 32 5 21321 41111122 12242213 111111 12231 41222211 2 12222 24 31211 12 1122232 14 31 221122221 1 523121 24 1243 1 313332122232122232 11313 222 1 21222 1232322114122 3 211111222221213 1121 112123322 31413 1121123211 21 411212332 4412 13 3311121 3 11421222 11 11523222 4233321 123211 1 13211311 11212 1113 2124133412321 2232122222121 2 11142342 21123 12312 54223421312112 2 1 1 611 12 11421121 161 6 113 113112 2 2 2123 121 211 3 111131214422123311112 11 4342 332 1 22 221 3 3 6121 12 1532211111123212 213 3111 32224 141 22 1121421222331214221121312 14 41221 121224142 211 41 12 123 144 4134421 31241221133 44 1122342122 221 1 211311 311213 1 211 12 21 213 1 21 2 2 21 3243212 21 221 24 2 433424 21 1224324 12 1152311 21322531143 33 2 1 2242 33211 2111232 41132 2221 4 3 1242 32262 1323 113 3231 23 1 2132321212113221 1 32 32 3 61 1312 1 31112 *** WITH RANDOM BIAS *** 1 1 1 1 1 1 1 1 1 2 1 2 1 2 1 1 1 1 1 1 12 1 21 11 1 2 1 1 1 1 11 1 1 2 111 1 2 1 1 12 1 1 1 1 11 1 1 1 12 21 12 2 2 21 12 1 1 1 121 121 2 1 1 1 22 2 2 2 11 1 1 11 1 111 111212 12 3 2 2 12 2 1 1 221 1 2 1 1 311 21 1 1 11 1 1 111 11121 12111 1 1 1 11 1 1 1 12 1 2 21123 124 2 21 21 231111222 21 11 111 1 2 1 11 1 1 1 111131 1 212 111311111211123112231 3 1111 1131 122 21 1 11 1 1 211 11 1 222321121 1 1 31 111231 1 11 241 1333 1112 1 2 2 21 1 213111 225312233 33 12 132111141 211 1 11 2 1 1 13 1122 123 212 2222 33512451 112222122121 2 1 2 1 1 1 11222 1 151211 11123 1 231 121212333333 1 2 2 1111321 2 1 1 111 4312 223 111 421 231121243211 146352212312212 211 112 1 2 1 2 12211151 34441342213 213 2212 22 121 2122 12 1 1 112 11213 111 422124551223115 3145 4142313 3 14 111 2 2 122 111 1 1 1 2 43111381222 13 6212141212214544311112 533 1112 11 1 1 1 22 12111 42121113 2221234113462244333122122 41 3134 2313 3 11 11 2 12 1 41123413741343 451 5133 5212422 12433321 412 21 11 111 1 1 11 1 1 232124 21 233321531326 2464247494432361 323111411231121131 1 2 12 3 21 1 222334451 3226553432154 13 1433234323341 111 1 1 1 1 1 22 1311122131 425232412 6557541136333442442164112231212211 11111111 1 111 1121 2211313212262442643121524436252663261213544431132 2113 21211 112124 3313 21 231134331522622554346425 374336355461111151221212 31113 1 1 12122 11211 1 45 11 16 63423523366162645 873619 34531113131 22211 113 1 1 11 11111113 1225133141516566633455141263155232522 32424 3211 22311 11 1 22 111141 421632435724134663435266751331463645563131314 4 11 1 1 1 1 1 15 1131211331136548 54615553335115172334641433 65 452122 4142 1 213 12 12 12 111 53533243334 741@@5375232315327441 1443233412121143 2 1 112 314 223275437215546152155428443311145346546158222232 22 12 412 1 1 21111 2 1 212211226623145343637343@54626512374411141431 3311313521 21 1 1 1 124 1111 244232426513843672232653655243961864333652222 11 223 123 1 2 11233312 22142323133323752633418244953529617228944646541 143 13221 1 11 212 222112113131 4415326 7522345544645239424132213112413 211141111112 3 11 1 331 2152323731322353336616334449749541236535333377416 66234 3 1 1 1 112 11 3252236442553 325394334344885931563129546 422 5211 21 211 1 1 121123 21232227441462473265855474525722132324214412566416313 2521 1 1 1 2 11 111 32 1233342555632415366515433892739453117846273 12421141311111 2111 1 3 222524 142 46221541463957263194237@696334326564325414222334 211 1 1 1 1 11 121423131225371474677452396325412754364254139221134 1144 2132 121 311 22 32544146348655762243438@6542623 3444635554535123432 42 4 111 1 1 12 11 1222331253327124425252336658334675555621321435211222312213 1 2 2 1 13112338143212531358555688447745354367232113333513163111 21 151 1 1 111 1 4323345325512254522346477246224522923523334235 15 431111 121 1 1 11124221 4 1524 43733 3411@2237452337344233 45128423512121 13 11 2 1 2 2 1 1 14236133362312214435244542286541875 53322832112123151 121 2 11 1 1 2513 3 11 33236432661465424466731558454323433655423324431 511 21 11 11 112 12312341532246 624762124353244425536336664842 41 13155341231133 121 1 1 22 1114121322 1323139641633563647154542336353536315331324112513312 31 1 1 1 1111 322 11446 5238354232442522445457464145324525353142432112 12 11 24 33113 5314 52 338453661232423166575541133 4213124 44311211 221311 11 11 132141743136222162131372446246754534523524322 31356123 311111 11 2 11111 1 1114322 411155223231574431436855534512333212 64 11 1314 31 1 1 313121123223313514 4134 46 312551234475 6124232524121113 12111 1 11 1 2 1 2 13222412256221 1543352225556349222283221433534 221331 12 1 2 221 1 1 1 11 1 152462313326321412346424252214647436112362132222 1 3 11 21 1 12 111 121113121561365333133543313 135511 2434442132132 112124 21 11 222 213 1213343433413154111311235162 16225 23424 6214315 3 2 21111 21 1 4 1223 12245431 21434144273533 22 1331 32 4131 3531221 222 1 11 1 23 1211132221522341426712 351312215122 334112212 1 2111 1 1 1 1 1124122121114 144312541535343 333 323 2 242122 21431 21 1111 12 11 11332112132423231243633351 2253223113213 451 33 41231 21 11 2 11 21 122 21 31133132142321341153422 25122 23132 21 2222331131 22 1 11 2221 323 2 14322511142236324212122 32111 3211111 111 1121 1 112 2 1 2 1111 11 3115313 5311222241121 3332324 13322 12 331 11124 1 1 421132 233 3122 421132112164 2212213112111124112 11 1 11 12 1112 3111 41113122121133 42123 1 2 21 11 11 11 12 1 11 1 1 11 2 2 1 11 1332312132 211 11 1312 2 1121 121 11 1 1 1 311 2221221313 212 113123 1112121 111 1 21 1 1 1 3 1 1 2 21 1114131131111 11 1 11 12115 2 121 2211 1 2 1 2 2 1 22 2 1 31221 12 1 213211122212 111113 1 1 211 1 1 21112 2211 2 111 1 3 1321122111111 323 11 1 1 1 2 11 1 1 11 111112 1 1 1 11 1 1 1 1 11 1 1 1 11211211 121 121 2 1 1 1 11 1 1 1 1 1 2 1 1112213 1 1 1 1 1121 11 1 1 1 1 1 21 11 1 1 1 11 1 1