Någon som kan lisp, hjälp mig hitta fel..

som rubriken säger så vill jag ha hjälp att hitta felen i mina funktioner

Första.

Denna ska "se" t.ex hur många ettor de finns i ett tal... t.ex. 1 12315, ska ge att de finns 2st 1or.

(defun räkna-siffror-it (x n) (räkna-siffror x n 0))
(defun räkna-siffror (x n res) (if (= (sista-siffran n) x) (Räkna-siffror (utan-sista-siffran n) x (+ 1 res))))

den ger bara 0 som svar hela tiden.

den är iterativ också.

andra.

den ska hitta alla udda tal i en lista och skriva dem i en ny lista med bara udda tal i.

(defun udda (lista) (cond ((endp lista) '())
((eq (mod (first lista) 2) 1) (cons (first lista) (udda (rest lista))))
(t (udda (first (rest lista) )))))

Den ger ut svar samma lista som innan, hela tiden.

jo jag vet.. jag behöver bara hjälp med att hitta fel och säga, där kan du ändra för att få rätt. typ men att ni inte säger vad jag ska ändra liksom...

(defun my-mod (x y) (- x (* y (truncate (/ x y)))))

(defun sista-siffran (n) (my-mod n 10))

(defun utan-sista-siffran (n) (truncate (/ n 10 ))) så ser de ut..

(defun räkna-siffror-it (x n) (räkna-siffror x n 0))
(defun räkna-siffror (x n res) (if (= (sista-siffran n) x) (Räkna-siffror (utan-sista-siffran n) x (+ 1 res))))

har tänkt att jag kanske måste köra cond istället för if, gjorde de förut men fick samma problem...

ok, jag tycker att jag måste ändra i slutet av funktionen(rna) med något. är jag på rätt väg?

ok. men tack för tipsen

edit: har ändrat min första funktion till att den kör med cond istället.

nu får jag i alla fall inte noll längre

(defun räkna-siffror-it (x n) (räkna-siffror x n 0))
(defun räkna-siffror (x n res) (cond ((= n 0) 0)
((= (sista-siffran n) x) (+ 1 (Räkna-siffror (utan-sista-siffran n) x res)))
(t (+ 1 (räkna-siffror (utan-sista-siffran n) x res)))))

blir tre om jag tar CG-USER(5): (räkna-siffror-it 1 12315)
3

edit: kommit till detta problem nu.. "Fundera på vad som händer i räkna-siffor-it om den sista siffran inte är x." :P, snart har jag de

jag får ut nu att (räkna-siffror-it 1 12315) 5 och om jag kör med 1231 blir fyra, allstå så räknar den med alla siffror nu.

"Som sagt, vad vill man att (räkna-siffror 1 0 5) skall ge för svar? Hur används den där femman man skickar in?"

så sant. ärligt talat så har jag lite hjärnsläpp så här på natten, men jo den ger ju ut 0 och 1 1 4 ger 1. sen nästa 2 och så vidare till 5

edit. btw funktionen ser ut så här nu.

(defun räkna-siffror-it (x n) (räkna-siffror x n 0))
(defun räkna-siffror (x n res) (cond ((= n 0) 0)
((= (sista-siffran n) x) (+ 1 (Räkna-siffror x (utan-sista-siffran n) (+ 1 res))))
(t (+ 1 (räkna-siffror x (utan-sista-siffran n) (+ 1 res))))))

ärligt talat så vet jag faktiskt inte, fick tips av en kompis att använda de, och sen på grund av att jag har en iterativ lösning också typ. men kan testa utan.

tog bort res. får nu samma svar ändå 5. så den verkar faktiskt onördig ja.

aha så sant... jo gör de, allså vill ju ha den till att den liksom lägger dem som är lika med ett i res. och sen i slutet skriver ut res. men nu får jag att de räknar med alla tal och de är ju inte helt meningen kanske nej.

har skrivit så här nu..

(defun räkna-siffror-it (x n) (räkna-siffror x n 0))
(defun räkna-siffror (x n res) (cond ((= n 0) res)
((> (sista-siffran n) x) (räkna-siffror x (utan-sista-siffran n) res))
((= (sista-siffran n) x) (Räkna-siffror x (utan-sista-siffran n) (+ 1 res)))
(t (Räkna-siffror x (utan-sista-siffran n) (+ 1 res)))))

fixa till att jag har så här också nu.

(cond ((= n 0) res)
((> (sista-siffran n) x) (räkna-siffror x (utan-sista-siffran n) res))

btw vet att jag inte ska ha ">"

Edit: har fått den att fungerar :D. Jag tackar för all hjälp tusen tack.. btw av rimliga själv så postar jag inte lösningen.