ALPRO | MODUL F-06

Sebelumnya saya sudah pernah posting tentang Modul F-05. Kali ini saya akan memberikan sedikit informasi mata kuliah ALPRO di kampus UDINUS kepada para sobat blogger. langsung saja saya membahas mata kuliah "Algoritma dan Pemrograman Modul F-06". Di sini saya akan mengeshare soal dan jawaban sekaligus :) .....
saya menggunakan aplikasi yang bernama CLISP

soal bisa di download disini

oh iya saya lupa untuk coding bisa menggunakan notepad biasa bisa juga noteped++, disini saya menggunakan notepad++ :)

untuk jawaban nya saya ketik dibawah ini, agar para sobat blogger bisa memahami (biar gak cuma copas aja nanti dikira penjiplak  ^_^ )

==============================================================
Modul F-06 :

;Modul F-06
;Definisi dan Spesifikasi Konstruktor
(defun Konso(e C)
    (cons e C)
)

(defun Kons(C e)
    (reverse (cons e (reverse C)))
)

;Definisi dan Spesifikasi Selektor
(defun FirstChar(C)
    (car C)
)

(defun Tail(C)
    (cdr C)
)

(defun LastChar(C)
    (car(reverse C))
)

(defun Head(C)
    (reverse (cdr (reverse C)))
)

;Definisi dan Spesikasi Predikat Dasar
(defun IsEmpty(C)
    (if    (null C)T
        nil
    )
)

(defun IsOneElmt(C)
    (if    (and (null (Tail C)) (not (IsEmpty C)))t
        nil
    )
)

;Definisi dan Spesifikasi Fungsi dan Predikat Lain
(defun nba(C)
    (cond    ((IsEmpty C)0)
            ((equal (FirstChar C) 'a) (+ 1 (nba (Tail C))))
            ((nba(Tail C)))
    )
)

(defun nba3(C)
    (if    (IsEmpty C)0
        (+ (nba3 (Head C)) (if (equal (LastChar C) 'a) 1 0))
    )
)

(defun nbx(C L)
    (cond    ((IsEmpty L)0)
            ((equal (LastChar L) C) (+ 1 (nbx C (Head L))))
            ((nbx C (Head L)))
    )
)

(defun Atleast(N C L)
    (if    (IsEmpty L)
        (if    (<= N 0)t
            nil
        )
        (if    (equal (FirstChar L) C)
            (Atleast (- N 1) C (Tail L))
            (Atleast N C (Tail L))
        )
    )
)

(defun IsPalindrome(L)
    (if    (IsEmpty L)t
        (if    (IsOneElmt L)t
            (if (equal (FirstChar L) (LastChar L))
                (IsPalindrome (Head (Tail L)))
            )
        )
    )
)

==============================================================

jika para blogger malas untuk mengetik, saya langsung kasih file nya dibawah iniii.

jawaban : disini

Sekian postingan  tentang "Modul F-06" tunggu selanjutnya Modul F-07.