Kode Schame

Posted in Uncategorized by derwan dani on 14 December , 2009

#lang scheme ; Latihan Functional Programming ; G64096018 ; G64096029 ; G64096030 ;1. Buatlah fungsi ambil untuk mengambil elemen pertama dan elemen terakhir dari list, ; membentuk sebuah list yang baru. (define (ambil x) (if(empty? x) 0 (append (list (first x)) (list(first(reverse x)))))) ;2. Buatlah fungsi append-list untuk menghubungkan dua buah list input, yaitu menggabungkan ; input list kedua setelah lipertama. (define(append-list a b) (if (and(empty? a) (empty? b)) '() (if(empty? a) b (if (empty? b) a (cons (first a) (append-list (rest a) b)))))) ;3. Buatlah fungsi merge untuk menghubungkan dua buah list yang masing-masing sudah ; terurut ascending menjadi sebuah list yang tetap terurut secara ascending. (define (merge x y) (if(empty? y) x (if (empty? x) y (if (< (first x) (first y)) (cons (first x) (merge (rest x) y)) (cons (first y) (merge (rest y) x)) ) ) ) ) ;4. Buatlah fungsi element-sama? untuk membandingkan apakah dua buah elemen input ; merupakan elemen yang sama. Elemen input bisa berupa atom atau list ; Untuk Mengakomodasi apabila elemen input berupa list, buatlah fungsi list-sama? untuk ; membandingkan apakah dua buah list input merupakan list yang sama. (Asumsi: input dari ; fungsi tersebut harus merupakan input yang legal). (define (element-sama? a b) (if (equal? (list a)(list b)) #t #f)) (define (list-sama? a b) (if (equal? (list a)(list b)) #t #f))

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: