时间戳

首页 > 解决方案 > 创建并填充一组 Raku 对象？

raku - 创建并填充一组 Raku 对象？

问题描述

我选择在 Perl 6 中重新设计我以前的代码的一部分，在这种情况下是棋盘。前两个类运行良好（或者至少有效，我知道的太少，以至于我无法说出它们的正确性） ，但我坚持第三个。这是代码：

#!/home/hsmyers/rakudo741/bin/perl6
# board.p6 - Beginnings of a PGN toolset. And place to start learning
#            Perl 6/Raku.
use v6d;

#!___________________________________________________________

constant $size = 4;

class Piece {
    my Str @namesOfPieces[$size] = <
        white-rook white-knight white-bishop white-queen
    >;
    my Str @abrevsOfPieces[$size] = <
        R N B Q K B N R
    >;
    my Str @symbolsOfPieces[$size] = <
        &#9814; &#9816; &#9815; &#9813; &#9812; &#9815; &#9816; &#9814;
    >;
    my Str @codeptsOfPieces[$size] = (
        "\x2656", "\x2658", "\x2657", "\x2655",
    );
    has Str $.name;
    has Str $.abrev;
    has Str $.symbol;
    has Uni $.codept;

    submethod BUILD( :$i ) {
        $!name   = @namesOfPieces[$i];
        $!abrev  = @abrevsOfPieces[$i];
        $!symbol = @symbolsOfPieces[$i];
        $!codept = @codeptsOfPieces[$i].NFC;
    }
}

class Square {
    my Int @colors[$size] = <
        1 0 1 0 1 0 1 0
    >;
    my Str @names[$size] = <
        a1 b1 c1 d1 e1 f1 g1 h1
    >;
    has Int   $.color;
    has Int   $.index;
    has Str   $.name;
    has Piece $.piece;

    submethod BUILD( :$i ) {
        $!color = @colors[$i];
        $!index = $i;
        $!name  = @names[$i];
        $!piece = Piece.new(:i($i));
    }
}

class Board is Array {
}

my $p = Piece.new(:i(0));
$p.say;
my $s = Square.new(:i(0));
$s.say;

#!___________________________________________________________

my @b := Board.new(
    Square.new(:i(0)),
    Square.new(:i(1)),
    Square.new(:i(2))
);
say @b;
say @b.WHAT;

在 cli 上运行时，结果为：

Piece.new(name => "white-rook", abrev => "R", symbol => "♖", codept => Uni.new(0x2656).NFC)
Square.new(color => IntStr.new(1, "1"), index => 0, name => "a1", piece => Piece.new(name => "white- 
rook", abrev => "R", symbol => "♖", codept => Uni.new(0x2656).NFC))
[Square.new(color => IntStr.new(1, "1"), index => 0, name => "a1", piece => Piece.new(name => 
"white-rook", abrev => "R", symbol => "♖", codept => Uni.new(0x2656).NFC)) Square.new(color => 
IntStr.new(0, "0"), index => 1, name => "b1", piece => Piece.new(name => "white-knight", abrev => 
"N", symbol => "♘", codept => Uni.new(0x2658).NFC)) Square.new(color => IntStr.new(1, "1"), index => 
2, name => "c1", piece => Piece.new(name => "white-bishop", abrev => "B", symbol => "♗", codept => 
Uni.new(0x2657).NFC))]
(Board)

到目前为止，我的尝试只剩下 Board 类（尽管它是空的）。令人惊讶的是（至少对我而言），它提供了一定程度的可操作性。它有不同的“新”和“BUILD”，都没有提供有效的解决方案。考虑到实际计数将是 64 而不是 4，当前的方法不起作用。

我目前的想法是我需要构建一个由 64 个正方形组成的数组，这反过来将创建必要的部分。我试图添加到 self 没有任何工作。建议？

标签： raku

解决方案

从这里继承Array可能不是最好的设计选择；它揭示并致力于Board. 相反，我建议 aBoard有一个Arrayof ，它是用对象Square初始化的。Square

假设电路板的位置是$size正方形，那么您可以执行以下操作：

class Board {
    has @.squares[$size ** 2];

    method TWEAK() {
        @!squares = map { Square.new(i => $_ % $size) }, ^($size ** 2);
    }
}

也就是说，取从 0 到但不包括$size平方的范围，然后将每个值映射到一个Square实例中。（我们对索引取模以避免其他类之一中的索引超出范围。）

二维数组可能更可取：

class Board {
    has @.squares[$size;$size];

    method TWEAK() {
        @!squares = (map -> $i { Square.new(:$i) }, ^$size) xx $size;
    }
}

在这里，我们map再次，但这次因为我们只是做一维，我们放弃了模数。使用命名$i参数意味着我们可以:$i使用方便，它是缩写:i($i)（在您发布的代码中也有机会这样做）。然后，我们使用该表达式生成一行，并使用xx它运行$size多次，以便获取每一列的数据。

最终，它可能不会这么简单；也许Square应该采用两个构造函数参数，一个数字和一个字母，来形成它的名字。这可能最好作为map. map此外，Piece实例的初始化可能也希望发生Board；虽然距离我上次下国际象棋已经过去了四分之一个世纪，但我很确定在游戏开始时并不是每个方格都有棋子。

推荐阅读