inter forum

echo 100500, "\n";

say 100500;

$a = [1, 'two', 35];
echo gettype($a), "\n"; // array;
echo is_array($a), "\n"; // 1
echo 'total: ', count($a), "\n"; // 4
echo 'last: ', $a[count($a)-1], "\n"; // 35

my @a = 1, 'two', 35;
say @a.^name; # Array
say @a ~~ Array; # True
say 'total: ', @a.elems; # 4
say 'last: ', @a[*-1]; # 35

foreach ($a as $key -> $val) {
    echo "$key - $val\n";
}

for @a.kv -> $key, $val {
    say "$key - $val";
}

$man = ['name' => 'Ваня Иванов', 'age' => 20];
print_r($man);
echo $man['age'];
$man['height'] = 190;

my %man = name => 'Ваня Иванов', age => 20;
dd %man;
print %man<age>;
%man<height> = 190;

$a = [1, 'two', 3];
$b = array_map(function($v){return is_int($v) ? $v * 3 : 1;}, $a);
print_r($b); #  [3, 1, 9]

my @a = 1, 'two', 3;
my @b = @a.map({$_ ~~ Int ?? $_ * 3 !! 1});
dd @b; # [3, 1, 9]

# Вторую строчку можно ещё так:
# my @b = @a.map(-> $v {$v ~~ Int ?? $v * 3 !! 1});

$arr = [1, 2, 3, 4, 5];
var_dump(in_array(3, $arr)); # bool(true)

my @arr = [1, 2, 3, 4, 5];
say 3 (elem) @arr; # True

private function clean_data() {
    # ...
}

method !clean-data {
    # ...
}

function sum(...$numbers) {
    $acc = 0;
    foreach ($numbers as $n) {
        $acc += $n;
    }
    return $acc;
}

echo sum(1, 2, 3, 4); # 10

sub sum-custom(*@numbers) {
    my $acc = 0;
    for @numbers -> $n {
        $acc += $n;
    }
    return $acc;

    # Код выше можно заменить одной строкой:
    # [+] @numbers;
    #
    # или так:
    # @numbers.reduce: * + *;
    #
    # p.s. Функция sum уже есть в языке
}

print sum-custom 1, 2, 3, 4; # 10

$s = 'abcdefgh';
echo strpos($s, 'b'), "\n";

$s = 'abcdefgh';
$f = strpos($s, 'b');
if ($f !== false) {
    echo 'Found b at ', $f, "\n";
}

my $s = 'abcdefgh';
say $s.index('b');

my $s = 'abcdefgh';
with $s.index('b') {
    say 'Found b at ', $_;
}