test.kat

print("\\\\");

(*def Point;
    $point_prototype: table;
    if is($_[1]);
        $point_prototype{x}: $_[1];
    else;
        $point_prototype{x}: 0;
    ok;
    if is($_[2]);
        $point_prototype{y}: $_[2];
    else;
        $point_prototype{y}: 0;
    ok;
    return $point_prototype;
ok;

def point_distance;
    $point_a: $_[1];
    $point_b: $_[2];
    return (($point_b{x} - $point_a{x})^2 + ($point_b{y} - $point_a{y})^2)^0.5;
ok;

$point_a: Point(0, 10);
$point_b: Point(20, 15);
$point_c: prototype($point_a);
print(point_distance($point_a, $point_b));
print(set($point_c{x}, $point_c{x} + 0.5));
print($point_a);
print($point_c);

(*$lines: split(read(open_rw("compilartu.sh")), "\n");
for $lines;
    print($lines[$_r]);
ok;

(*def fibonacci;
    $n: $_[1];
    if $n <= 2;
        return 1;
    ok; unless $_r;
        $a: 1;
        $b: 1;
        while $n > 2;
            $swap: $a + $b;
            $a: $b;
            $b: $swap;
            $n: $n - 1;
        ok;
        return $b;
    ok;
ok;

print("Let's find out the 10th digit of the nth fibonacci number!");
$n: 100;
$num: fibonacci($n);
if len($num) < 10;
    print("The #", $n, " fibonacci number is ", $num, " and it has fewer than 10 digits.");
    exit(0);
ok;
print("The #", $n, " fibonacci number is ", $num, " and its 10th digit is: ", $num[10]);


print(123[2]); (* imprime 2 *)

(*in $edades: init_table(
    "lartu", 28,
    "damian", 28,
    "wendy", 29
);

# for $edades; debería ser:

in $_i1: 1;  # $_iX donde X es el número de for en todo el programa
while is(keys($edades)[$_i1]);
    in $_k: keys($edades)[$_i1];
    in $_v: $edades[$_k];
    print($_k, " -> ", $_v);
    in $_i1: $_i1 + 1;
ok;


# PRUEBA DE ELSE!

if 8 < 9;
    print("True!");
ok;
unless $_r;
    print("False!");
ok;

(*in $t: arr("lartu", "moncho", "damian", "dylan");

in $i: 1;
while is(keys($edades)[$i]);
    print(keys($edades)[$i], " tiene ", $edades[keys($edades)[$i]], " años!");
    in $i: $i + 1;
ok;

(*in $fibocache: table;

def getcache;
    return $fibocache;
ok;

def fibonacci;
    in $n: $_[1]å;
    if $n <= 2;
        return $n;
    ok;
    if $n :: $fibocache;
        return $fibocache[$n];
    ok;
    in $res: fibonacci($n - 1) + fibonacci($n - 2);
    in $f: getcache();
    in $f[$n]: $res;
    return $res;
ok;

in $a: "Roberto";
print($a);

print(fibonacci(9000));

(*in $file: open_rw("aoc1_input.txt");
in $total: 0;
while read_line($file);
    in $line: trim($_r); (* $_r es el resultado del while y es local *)
    print($line); (* $_r es el resultado del if y es local *)
    in $first_digit: 0;
    in $last_digit: 0;

    (* Find first digit *)
    in $i: 1;
    while slice($line, $i, 1);
        (* Lo razonable acá sería un for $line con $_k y $_v*)
        in $char: $_r;
        if $char :: "0123456789";
            in $first_digit: $char;
            print("Found first digit: ", $first_digit);
            break;
        ok;
        in $i: $i + 1;
    ok;

    (* Find list digit *)
    in $i: len($line); (* Por casos como este es que Katalyn indexa desde 1 *)
    while slice($line, $i, 1);
        in $char: $_r;
        if $char :: "0123456789";
            in $last_digit: $char;
            print("Found last digit: ", $last_digit);
            break;
        ok;
        in $i: $i - 1;
    ok;
    in $total: $total + ($first_digit & $last_digit);
ok;

print("Total: ", $total);

(*def isspace;
    in $char: $_{1};
    print($_);
    if len($char);
        if $char :: " \t\n";
            return 1;
        ok;
    ok;
    return 0;
ok;

print(isspace(" "));*)

(*in $file: open_rw("aoc1_input.txt");
while read_line($file);
    local $line: trim($_r);
    if "one" :: $line;
        print("The line ", $line," contains 'one'");
    ok;
ok;

(*in $file: open_rw("aoc1_input.txt");
in $total: 0;
while read_line($file);
    local $line: trim($_r); (* $_r es el resultado del while y es local *)
    print($line); (* $_r es el resultado del if y es local *)
    local $first_digit: 0;
    local $last_digit: 0;

    (* Find first digit *)
    local $i: 1;
    while slice($line, $i, 1);
        (* Lo razonable acá sería un for $line con $_k y $_v*)
        local $char: $_r;
        if $char :: "0123456789";
            in $first_digit: $char;
            print("Found first digit: ", $first_digit);
            goto SECOND_CHAR;
        ok;
        in $i: $i + 1;
    ok;
    label SECOND_CHAR;

    (* Find list digit *)
    local $i: len($line); (* Por casos como este es que Katalyn indexa desde 1 *)
    while slice($line, $i, 1);
        local $char: $_r;
        if $char :: "0123456789";
            in $last_digit: $char;
            print("Found last digit: ", $last_digit);
            goto CONTINUE;
        ok;
        in $i: $i - 1;
    ok;
    label CONTINUE;

    in $total: $total + ($first_digit & $last_digit);
ok;
label EXIT;
print("Total: ", $total);

(*in $a: 99;
add_scope;
    local $a: $a - 1;
    print($a);
del_scope;

in $t: #;
in $t{100}: "Roberto";
in $t2: $t;
(*del($t, "100");
unset($a);
unset($t);*)

(*
Katalyn Documentation:
• funciones y comandos
• operadores
• variables y accesos
• strings, ints, floats y tables
• $_r
• comentarios, unclosed y nested
*)

print($a);

(*(* Fibonacci calculator!! *)
in $a: 1; in $b: 1;
in $n: 9000000; in $max: $n;
if $n <= 0;
    print("Error, enter a number greater than or equal to 1.");
    exit(1);
ok;
if $n <= 2;
    print(1);
ok;
if $n > 2;
    in $n: $n - 2;
    in $iterations: 0;
    in $total_iterations: 0;
    while $n > 0;
        if $iterations = 100000;
            in $total_iterations: $total_iterations + $iterations;
            in $iterations: 0;
            print("Me faltan ", $max - $total_iterations, " números");
        ok;
        in $iterations: $iterations + 1;
        in $c: $a + $b; in $a: $b; in $b: $c;
        in $n: $n - 1;
    ok;
    if $c % 3 = 0;
        print("It's divisible by 3!");
    ok;
    if $c % 3 <> 0;
        print("It's not divisible by 3 :(");
    ok;
    print($c);
ok;

(*(* Disan Count *)
in $max: accept("Enter the max value: ");
in $even_numbers: #;
in $even_numbers{size}: 0;
if $max < 0;
    print("The number must be greater than 0.");
    exit(1);
ok;
while $max >= 0;
    if $max % 2 = 0;
        print($max, " is even!");
        in $even_numbers[$even_numbers{size}]: $max;
        in $even_numbers{size}: $even_numbers{size} + 1;
    ok;
    in $max: $max - 1;
ok;

(* Print all even numbers found, again, in reverse order. *)
print("I've found " & $even_numbers{size} & " even numbers. They are:");
in $i: 0;
while is($even_numbers, $i);
    print("• " & $even_numbers[$i]);
    in $i: $i + 1;
ok;
exit(0);*)