gistfile1.txt

#!/usr/bin/env tora

/* string section */
say("# string");

my $str = "Hello, Tora";
say($str, $str.length);

/* array section */
say("# array");

my $array = [3, 2, 1];
say($array.size);
$array.map(-> $e { say($e) });
$array.push("hoge");
$array.pop;
$array.unshift("fuga");
$array.shift;
my $new_array = $array.sort;
say($new_array.join(" "));

/* hash section */
say("# hash");
my $hash = {foo => "bar", hoge => "fuga"};
say($hash.keys.join(" "));
say($hash.values.join(" "));
$hash.delete("foo");
say($hash.exists("foo"));

/* condition */
say("# condition");
if $str.length > 10 {
    say("mattn");
}
else {
    say("yappo");
}