JustThisGuyAZ

my %node;
%node<1,2> = 1;

for 0..3 -> Int $x {
  for 0..3 -> Int $y {
    my Int $cost;
say "$x,$y";
    $cost = %node<$x,$y>:exists ?? 100 !! 1;
say $cost;

JustThisGuyAZ

my %node;
%node<1><2> = 1;

for 0..3 -> Int $x {
  for 0..3 -> Int $y {
    my Int $cost;
say "$x,$y";
    $cost = %node<$x><y>:exists ?? 100 !! 1;
say $cost;

JustThisGuyAZ

use v6;

class DBM::GDBM {

  use NativeCall;

  constant GDBM_BLOCKSIZE = 0;
  constant GDBM_WRCREAT   = 2;
  constant GDBM_REPLACE   = 1;