|
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 |
|