Gestione degli stem in REXX
Wednesday, 15 August 2012, 15:40 -
Informatica,
Programmazione,
Programmazione strutturata,
Linguaggi,
REXXPostata da Daniels118
Rimuovere e restituire N elementi da una determinata posizioneaRemove: /* (src, index, cnt, dst) */
$sc = value(arg(1)".0")
$cnt = arg(3)
$si = arg(2)
if $si + $cnt - 1 > $sc then $cnt = $sc - $si + 1
do $di = 1 to $cnt
interpret arg(4)".$di="arg(1)".$si"
$si = $si + 1
end
$di = arg(2)
do $si = arg(2) + $cnt to $sc
interpret arg(1)".$di="arg(1)".$si"
$di = $di + 1
end
do $i = $sc - $cnt + 1 to $sc
interpret "drop "arg(1)".$i"
end
$sc = $sc - $cnt
interpret arg(1)".0=$sc"
interpret arg(4)".0=$cnt"
return $sc
Continua...