Anonymous user
Nested templated data: Difference between revisions
m
→{{header|M2000 Interpreter}}
(→{{header|M2000 Interpreter}}: Second version) |
|||
Line 178:
link a to a()
while k {
select case type$(a(k^))
case "mArray"
Append res, (Lambda
Case "VarItem" ' for more than one line need to place in a block
{
Append res, ("Unused#pos"+trim$(str$(p)),) ' one item tuple append to res
append unused, p
p++
}
else case
{
Append res, ("Payload#"+trim$(str$(array(k))),) ' one item tuple append to res
p++
}
end select
}
=res
Line 244:
Checkit
report Clipboard$
</lang>
{{out}}
Line 256 ⟶ 255:
Unused: pos 1, pos 4
</pre >
=={{header|Perl}}==
|