Advent Of Core 2021 Day 1 NTSL

aoc_2021_1.ntsl

if (substr($content, 1, 6) == "!load")
{
    $lenContent = length($content);
    $dataString = substr($content, 6, $lenContent+1);
    $data = explode($dataString, ",");
    mem("data", $data);
    mem("i", 1);
    mem("last", 10000);
    mem("count", 0);

    $lenData = length($data);
    $lenDataStr = tostring($lenData);
    $datStr = vector2text($data);
    broadcast("LD: " + $lenDataStr, $freq, "Sloeber", "Computer");
    broadcast("dat: " + $datStr, $freq, "Sloeber", "Computer");
}
elseif ($content == "!c")
{
    $data = mem("data");
    $i = mem("i");
    $last = mem("last");
    $count = mem("count");
    $c = 1;

    $lenData = length($data);
    $lenDataStr = tostring($lenData);
    $iStr = tostring($i);
    $lastStr = tostring($last);
    $countStr = tostring($count);
    broadcast("LD: " + $lenDataStr + ", i: " + $iStr + ", last: " + $lastStr + "count: " + $countStr, $freq, "Sloeber", "Computer");

    while ($i <= $lenData && $c < 50)
    {
        $valStr = at($data, $i);
        $iStr = tostring($i);
        //broadcast("$valStr, $i: " + $valStr + ", " + $iStr, $freq, "Sloeber", "Computer");
        $val = tonum($valStr);

        if ($val > $last)
        {
            $count += 1;
        }

        $last = $val;

        $i += 1;
        $c += 1;
    }

    if ($i > $lenData)
    {
        // Got it!

        $countStr = tostring($count);
        //broadcast("The answer is... " + $countStr + "!", $freq, "Sloeber", "Computer");
        return;
    }

    mem("i", $i);
    mem("last", $last);
    mem("count", $count);
}