こんにちは、3日目の投稿になります。
Introduction
みなさんはrakudo-and-nqp-internals-courseを知っていますか?
rakudo-and-nqp-internalsはMoarVMの開発者であるJonathan Worthington氏の作ったnqpとrakudoの内部構造に関するチュートリアルです。
スライドだけじゃなくて、エクササイズ問題も用意されています。
http://edumentab.github.io/rakudo-and-nqp-internals-course/
というわけで、詳しい話はスライドを見てもらうとして、今回のアドベントカレンダーでは私がエクササイズ問題に挑戦していきたいと思います。
3日目はExercise 1に挑戦します。
Exercise 1
1.1 Hello, World
- 初めの儀式、Hello, worldをしてみましょうという問題です。
!# nqp
say('Hello, world');
1.2 Variables
- スカラ、配列、ハッシュに対して値を代入していきましょうという問題です
- 代入(=)じゃなくて束縛(:=)つかっていくのがポイントです。
!# nqp
my $a := 10;
say($a);
my @b;
@b[0] := 10;
my @c;
@c := [1,2,3];
say(@c[0]);
say(@c[1]);
say(@c[2]);
my $scalar;
$scalar := [1,2,3];
my %h;
%h<key> := 10;
%h{'key'} := 10;
1.3 Loops
- 配列、ハッシュに対してループ処理を書いてみましょうという問題です
- 配列のループのところで一度に2つの値を見るのはこんな感じの解き方であってるのかなあというのだけ気になりました (#1)
!# nqp
my @a := [1,2,3];
for @a {
say($_);
}
for @a -> $val {
say($val);
}
my @b;
@b[0] := [1,2];
@b[1] := [2,3];
for @b { # (#1)
say($_[0]);
say($_[1]);
}
my %h<key> := 10;
for %h {
say($_.key);
say($_.value);
}
1.4 Subroutines
- 階乗を表現する関数を書いてみましょうという問題です。
- 特にnqp独特の部分はなさそうです。
!# nqp
sub fac($a) {
$a == 0 ?? 1 !! $a * fac($a - 1)
}
say(fac(10));
1.5 Classes
-
下記のような複数の問題になっています
- BarTabクラスをつくって、newメソッドを書いてみる
-
$!num-tables,@!itemsといったアトリビュートを書いてみる -
$!num-tablesのゲッターのtable()メソッドを書いてみる -
$nameと$priceを受け取って@!itemsの中身を更新するadd_orderを書いてみる -
@!itemsの中身を文字列で提示するrender_tab()を書いてみる
-
nqp::create(),nqp::list(),nqp::push()が見慣れないかもしれません- nqpのページにドキュメントがあるので、詳しくはそれを参照すると良いでしょう。
問題文に
BUILDを使いなさいとは書いてなかったかもしれませんが、オブジェクトをnqp::createで作るのはnewに任せて、いろいろな初期化作業はBUILDにやらせる感じにしてみました。
!# nqp
class BarTab {
has int $!num-tables;
has @!items;
method new(:$table!) {
my $obj := nqp::create(self);
$obj.BUILD(:table($table));
$obj
}
method BUILD(:$table!) {
$!num-tables := $table;
@!items := nqp::list();
}
method table() {
$!num-tables
}
method add_order(str $name, int $price) {
my %h;
%h<name> := $name;
%h<price> := $price;
nqp::push(@!items, %h);
}
method render_tab() {
my $total := 0;
for @!items {
say($_<name>);
say($_<price>);
$total := $total + $_<price>;
}
say($total);
}
}
my $bar-tab := BarTab.new(table => 42);
say($bar-tab.table);
$bar-tab.add_order("name", 1000);
$bar-tab.render_tab();
1.6 Multi-methods
-
add_orderをmulti-methodに変更しましょうという問題です。 -
intやstrのような型を引数にしていするとうまく動かない(スライドにも書いてある)ので注意が必要です。
!# nqp
class BarTab {
has int $!num-tables;
has @!items;
method new(:$table!) {
my $obj := nqp::create(self);
$obj.BUILD(:table($table));
$obj
}
method BUILD(:$table!) {
$!num-tables := $table;
@!items := nqp::list();
}
method table() {
$!num-tables
}
proto method add_order($name, $price, $quantity?) { * }
multi method add_order($name, $price) {
my %h;
%h<name> := $name;
%h<price> := $price;
nqp::push(@!items, %h);
}
multi method add_order($name, $price, $quantity) {
my $i := 0;
while $i < $quantity {
my %h;
%h<name> := $name;
%h<price> := $price;
nqp::push(@!items, %h);
$i := $i + 1;
}
}
method render_tab() {
my $total := 0;
for @!items {
say($_<name>);
say($_<price>);
$total := $total + $_<price>;
}
say($total);
}
}
my $bar-tab := BarTab.new(table => 42);
say($bar-tab.table);
$bar-tab.add_order("name", 1000);
$bar-tab.render_tab();
1.7
- 解いてないです:)
以上、3日目の投稿でした。
ライセンス
rakudo-and-nqp-internals-course is licensed under the Creative Commons Attribution-NonCommercial-ShareAlike 3.0 Unported License.