8 my $state = /^on / ? 1 : 0;
9 my ($xmin, $xmax, $ymin, $ymax, $zmin, $zmax) = /-?\d+/g;
10 ($xmin, $xmax) = ($xmax, $xmin) if $xmax < $xmin;
11 ($ymin, $ymax) = ($ymax, $ymin) if $ymax < $ymin;
12 ($zmin, $zmax) = ($zmax, $zmin) if $zmax < $zmin;
13 say "cuboid ", join(',', $state, $xmin, $xmax, $ymin, $ymax, $zmin, $zmax);
14 next if ($xmax < -50 || $ymax < -50 || $zmax < -50);
15 next if ($xmin > 50 || $ymin > 50 || $zmin > 50);
16 $xmin = -50 if ($xmin < -50);
17 $ymin = -50 if ($ymin < -50);
18 $zmin = -50 if ($zmin < -50);
19 $xmax = 50 if $xmax > 50;
20 $ymax = 50 if $zmax > 50;
21 $zmax = 50 if $zmax > 50;
22 for my $x ($xmin .. $xmax) {
23 for my $y ($ymin .. $ymax) {
24 for my $z ($zmin .. $zmax) {
25 $cubes{$x,$y,$z} = $state;
26 say "$x,$y,$z => $state";
31 for my $x (-50 .. 50) {
32 for my $y (-50 .. 50) {
33 for my $z (-50 .. 50) {
34 $count++ if $cubes{$x,$y,$z};