Pridať komentár

Príspevok, na ktorý odpovedáte

Re: pokrocily parsing cisel z retazca 02.11.2011 | 20:37
branchman   Návštevník
Vedel, tu ho mas (netestoval som to, aj tak by to mohlo fungovat). Nevyhoda je, ze neberie same nuly, ale to si snad dokazes upravit. V pripade potreby upravy napis aj to, co si skusal.
parsuj(Vstup,Vystup):-parsuj(Vstup,Vystup,0).

parsuj([], [], 0).
parsuj([], [A], A):-A\=0.

parsuj([ZVstup|KVstup], Vystup, MedziVysl):-
  CVstup is ZVstup - "0",
  CVstup >= 0,
  CVstup =< 9,
  !,
  NovyVysl is MedziVysl * 10,
  NovyVysl2 is NovyVysl + CVstup,
  parsuj(KVstup, Vystup, NovyVysl2).


parsuj([_|KVstup], KVystup, 0):- parsuj(KVstup, KVystup, 0).
parsuj([_|KVstup], [MedziVysl|KVystup], MedziVysl):- MedziVysl \= 0, parsuj(KVstup, KVystup, 0).
7 - 6 plus tisíc (číslom)

Maximálna veľkosť je: 2,0 MB