Reduzierte Listen
Funktion zu Berechnung von Josephus Zahlen.
Das Josephus Problem de.wikipedia.org/wiki/Josephus-Problem beschreibt eine Vorschrift für Streichlisten. In einer zyklischen Liste wird umlaufend jedes zweite Element entfernt. Abhängig von der Größe der Liste liefert die Funktion das letzte Element. Der Code für den HP-16C Taschenrechner: :
001 43.22. A Lbl A 002 44 0 STO 0 003 2 2 004 44 1 STO 1 005 43.22. 1 Lbl 1 006 45 0 RCL 0 007 45 1 RCL 1 008 10 ./. 009 43 40 x=0 010 22 2 GTO 2 011 45 1 RCL1 012 2 2 013 20 x 014 44 1 STO 1 015 22 1 GTO 1 016 43.22. 2 Lbl 2 017 45 1 RCL 1 018 2 2 019 10 ./. 020 44 1 STO 1 021 45 0 RCL 0 022 34 x<>y 023 42 9 RMD 024 2 2 025 20 x 026 1 1 027 40 + 028 43 21 RTN