(TI-59) Saute Mouton

[SlideRule]

An excerpt from jeux et stratégie n°1, jouez à saute-mouton (pgs 54-55)

Comment faire passer les moutons de gauche, à droite, et les moutons de droite, à gauche ? Un mouton peut avancer sur une case vide ou sauter par-dessus un seul autre mouton de manière à retomber sur une case vide. Il ne peut en aucun cas reculer ou sauter par-dessus plusieurs moutons.

Pour cette première rubrique, vous ne jouerez pas vraiment CONTRE les programmes mais ils vous permettront de vous exercer agréablement à un joli casse-tête : le « saute-mouton ». A votre gauche les trois « I » représentent trois i.ioutons bien maigres. A votre droite, les trois « 2 » sont des moutons bien gras. Chaque zéro indique une place vide, juste suffisante pour un mouton. Ces petites bêtes se sont retrouvées face à face sur un sentier de montagne ; les trois moutons de gauche allant vers la droite et leurs » congénères » dans le sens opposé. Depuis l'histoire de Panurge, si ce n'est plus tôt, on sait leur caractère: ils peuvent avancer, sauter, mais ils sont si peureux qu’ils ne peu¬ vent reculer.
Il vous appartient de permettre aux moutons de passer leur chemin sans encombre. Pour cela il vous suffira d’indiquer le numéro de la case où se trouve le mouton que vous voulez voir se déplacer.

Description du Programme : 0 représente une place vide. 1: les moutons qui vont vers le droite, 2: les moutons qui vont vers la gauche. Le programme interprète le numéro de la case où se trouve le mouton qui va se déplacer: sens du déplacement, avancée ou saut.
En cas de manoeuvre illégale, le programme redonne l'affichage de la situation sans modification.
Mode d’emploi :
1: introduire le programme
2: initialiser (appuyé' sur la touche A: affichage 0.11102220)
3: indiquer la case où se trouve le mouton à « déplacer » (introduire le n° et appuyer sur R/S)
4: recommencer 3 jusqu’à la fin. En cas d'échec aller en 2.

Code:

000 76 LBL
001 11  A
002 00  0
003 42 STO
004 01  01
005 42 STO
006 05  05
007 42 STO
008 09  09
009 01  1
010 42 STO
011 02  02
012 42 STO
013 03  03
014 42 STO
015 04  04
01t 02  2
017 42 STO
018 06  06
069 42 STO
020 07  07
021 42 STO
022 08  08
023 76 LBL
024 12  B
025 09  9
026 42 STO
027 25  25
028 00  0
029 76 LBL
030 23 LNX
031 65  ×
032 00  0
033 93  .
034 01  1
035 85  +
036 73 RC*
037 25  25
038 95  =
039 97 DSZ
040 25  25
041 23 LNX
042 91 R/S
043 76 LBL
044 24 CE
045 22 INV
046 86 STF
047 01  01
048 42 STO
049 25  25
050 42 STO
051 12  12
052 76 LBL
053 32 X⇄T
054 00  0
055 32 X⇄T
056 73 RC*
057 25  25
058 67  EQ
059 12  B
060 76 LBL
061 33 x²
062 73 RC*
063 12  12
064 32 X⇄T
065 01  1
066 22 INV
067 67  EQ
068 35 1/X
069 01  1
070 44 SUM
071 25  25
072 76 LBL
073 34 √X
074 00  0
075 32 X⇄T
076 73 RC*
077 25  25
078 22 INV
079 67  EQ
080 42 STO
081 73 RC*
082 12  12
083 72 ST*
084 25  25
085 00  0
086 72 ST*
087 12  12
088 12  B
089 76 LBL
090 35 1/X
091 22 INV
092 44 SUM
093 25  25
094 61 GTO
095 34 √X
096 76 LBL
097 42 STO
098 00  0
099 87 IFF
100 01  01
101 12  B
102 86 STF
103 01  01
104 61 GTO
105 33 x²
106 91 R/S

BEST!
SlideRule

[Nihotte(lma)]

Thanks, SlideRule !

Just a practical information for the other users of TI
I have tested this program on a TI-66 and I had to use memory 00 instead of 25 because DSZ 25 is impossible on this calculator
I can't say for the TI-58
So, when I meet ST*/STO or RC*/RCL or DSZ or SUM followed by 25 in the listing, I key in 00. The program seems always to go well on running !