在运行时创建一个二维数组

作者:TimToady

从用户获取两个整数,然后创建一个二维数组,其中两个维度的大小由这些数字给出,并且可以以最自然的方式访问。写入该数组的某个元素,然后输出该元素。最后,如果语言本身没有完成,则销毁数组。

更多

http://rosettacode.org/wiki/Create_a_two-dimensional_array_at_runtime#Raku

源代码: create-a-two-dimensional-array-at-runtime.pl

use v6;

my ($major, $minor) = prompt("Dimensions? ").comb(/\d+/);
die "Please enter two dimensions" unless $major && $minor;

my @array := [ for ^$major { [ for ^$minor { '@' } ] } ];

@array[ (^$major).pick  ][ (^$minor).pick ] = ' ';

.Str.say for @array;