Merhaba arkadaşlar, bu yazımda parametre olarak gelen bir listenin içinden negatif sayıları bulacağız.
Öncelikle negatif diye bir fonksiyon tanımlayıp daha sonra bunun içerisine liste göndereceğiz.
Eğer gönderdiğimiz listenin ilk elemanı 0’dan küçük ise yeni bir liste oluşturup (cons) ilk elemanı alacağız ve negatif fonksiyonuna kalan elemanları göndereceğiz.
Eğer negatif değilse yine listenin kalanını negatif fonksiyonuna tekrar göndereceğiz.
Durma şartımız ise listenin boş olma durumu. Listeyi boş görünce duracaktır. Hemen aşağıya kodunu ekliyorum.
(define (negatif list)
(cond
((empty? list)empty)
((< (first list)0)
(cons (first list) (negatif (rest list))))
(else (negatif (rest list)))))
(negatif (list 1 3 -4 -8 -2 5 -1))
Ekran görüntüsüde aşağıdaki gibi olacaktır.
Negatif sayılar bulunmuş oldu. Aynı şekilde <0 kısmını >0 yaparak da pozitif sayıları bulabilirsiniz.
Umarım faydalı olmuştur başarılar..
