foreach пишется иначе

Sumo 16.07.2024 10:34

@main[]

$oHash[^Hash::create[$.x[xxxx] $.y[aaaa] $.z[SSSS]]]

json: ^json:string[$oHash]

foreach: ^oHash.foreach[k;v]{$k - $v}


@CLASS
Hash

@create[h]
$self.H[$h]


@GET[sMode]
  $result[^hash::create[$self.H]]


@GET_DEFAULT[sName]
  $result[$self.H.$sName]


@foreach[key;value;code][locals]
  $result[^self.H.foreach[k;v]{$caller.[$key][$k]$caller.[$value][$v]$code}[, ]]

json: {
"x":"xxxx",
"y":"aaaa",
"z":"SSSS"
}

foreach: x - xxxx, y - aaaa, z - SSSS