HP 50g Guia Del Usuario página 350

Secuencia de teclas:
‚ å
„°@) S TACK! @@DUP@
‚ é # ~ „n
‚ å
1„°@) S TACK! @SWAP
„°@) B RCH! @) F OR@! @FOR@
~„j
„°@) T YPE OBJ
ARRY@
„°@) B RCH! @) @ IF@@ @@IF@@
~ „j#
~ „n
„°@) T EST! @@@<@@@
„°@) B RCH! @) @ IF@ @THEN
~ „j #1+
„°@) S TACK! L@ROLL
„°@) B RCH! @) @ IF@ @END
„°@) B RCH! @) F OR@! @NEXT
„°@) B RCH! @) @ IF@ @@IF@@
~ „n #1
„°@) T EST! @@@>@@@
„°@) B RCH! @@IF@ @THEN
1#
~ „n #1-
„°@) B RCH! @) F OR@! @FOR@
~ „j #
~ „j #1+
„°@) S TACK! L@ROLL!
„°@) B RCH! @) F OR@! @NEXT!
„°@) B RCH! ) @ @IF@! @END@
~„n #
„´@) M ATRX! @) C OL! @COL!
`
Produce:
«
DUP
n
<<
1 SWAP
FOR
j
OBJ
ARRY
IF
j
n
<
THEN
j 1 +
ROLL
END
NEXT
IF
n 1
>
THEN
1
n 1 -
FOR
j
j 1 +
ROLL
NEXT
END
n
COL
El programa se exhibe en nivel 1
Página 10-17