|
Uguaglianza tra sequenzeDate due sequenze di 1 separate da *, scrive 1 se sono uguali, 0 altrimenti. ... Commento: elimina un 1 a sinistra e un 1 a destra finché non rimane soltanto *. Negli altri casi cancella tutti gli 1 rimasti e scrive 0 Tabella:
Quintuple: 0101s 'a sinistra finché non trova blank
0*0*s '...
0 U d 'va in U e comincia...
'.................................................
U1D d 'ha trovato un 1 a sx, e a dx?
U*C d 'a sinistra ha finito, CONTROLLA se anche a destra
'.................................................
D1D1d 'a destra finché non trova blank
D*D*d '...
D u s 'va in u per verificare 1
'.................................................
C H1n 'SUCCESSO
C1E d 'INSUCCESSO
E1E d 'cancella gli 1 in eccesso
E H0n 'INSUCCESSO
'.................................................
u10 s 'ha trovato un 1 a dx, ricomincia...
u*e s 'non ha trovato un 1, cancella tutto...
e1e s 'cancella gli 1 in eccesso
e H0n 'INSUCCESSO |
|