hacker.org

Code: Select all

<?php
set_time_limit(0);
$start = 14158;  // this start value is chosen because the prog will land ecatle on 10bil with this.
$count = 1554;   // this is how many are alive at gen $start (courtesy of golly)

while($start < 10000000000)
{
$start += 13398;
$count += 716;
}
echo $start . " = " . $count;
?>

Code: Select all

_141_populationOfLifeGeneration_saveFile
    |img wI hI w h sample row col board margin|

    margin := 100.

    img := (PNGReader readStream:(HTTPInterface get:'http://www.hacker.org/challenge/img/life2.png') data readStream) image.
    wI := ((img width - 1) // 8).
    hI := ((img height - 1) // 8).

    w := margin + wI + margin.
    h := margin + hI + margin.

    board := Life_Board rows:h cols:w.
    row := col := 1.
    "/ take sample from the middle
    1 to:hI do:[:y |
        col := 1.
        1 to:wI do:[:x |
            sample := img colorAtX:((x-1)*8+1+4) y:((y-1)*8+1+4).
            (board at:row+margin) at:col+margin put:(sample = Color white ifTrue:[0] ifFalse:[1]).
            col := col + 1.
        ].
        row := row + 1.
    ].
    board saveInRLEFormatAs:'file.rle'