1. Membuat fungsi untuk menghitung banyaknya faktor dari inputan n dengan a = 1
(defun bykFktr (a n)
(cond ((= a n) 1)
((= (modulo n a) 0) (+ 1 (bykFktr (a + 1) n ) ) )
(t (bykFktr (a + 1) n) )
)
)
2. Menentukan apakah n bilangan prima ==> fungsi banyak faktor harus menghasilkan angka 2
(defun IsPrima (n)
(if (= (bykFktr 1 n) 2) t nil)
)
Thursday, May 3, 2012
Membuat Fungsi IsPrima LISP
Labels:
Programming
Location:
Semarang, Indonesia
Menghitung Banyaknya Elemen Ganjil pada List
(defun BykElmtGnjl (L) ====> List
(cond ((null L) 0)
((oddp (firstelmt L)) (+ 1 (bykElmtGnjl (cdr L)))) ==> Rekursif dengan penambahan 1 untuk setiap elemen ganjil
(t (BykElmtGnjl (tail L))) ==> Kondisi default
)
)
(cond ((null L) 0)
((oddp (firstelmt L)) (+ 1 (bykElmtGnjl (cdr L)))) ==> Rekursif dengan penambahan 1 untuk setiap elemen ganjil
(t (BykElmtGnjl (tail L))) ==> Kondisi default
)
)
Labels:
Programming
Location:
Semarang, Indonesia
Sunday, March 11, 2012
Google Membuat Kita "Bodoh" (?)
Google, sebuah kata yang sudah tidak asing lagi bagi setiap orang. Beberapa hal yang ada di dalam pikiran seseorang
1. Google sebagai search engine dapat memudahkan kita dalam mencari berbagai informasi di dunia maya.
2. Google Calendar dapat mengingatkan kita tentang schedule yang harus kita lakukan.
3. Gmail yang dapat menampung bertriliunan email dari seluruh dunia dengan kualitas dan bandwidth server yang sudah pasti berkualitas.
4. Google+, situs pertemanan yang akan menyaingi facebook.
dan masih banyak lagi fasilitas-fasilitas google yang lainnya. Belum lagi jika google mengakuisi situs-situs besar lainnya yang semakin memudahkan hidup kita. Namun apakah google benar-benar memudahkan hidup kita? jika dilihat secara dangkal jawabannya adalah 'ya'. Namun jika dianalisa lebih mendalam, bisa muncul jawaban 'tidak'. Bagaimana bisa demikian?
Saturday, March 10, 2012
Teknologi Handphone dan Sejarahnya
Handphone, tentunya sebuah perangkat yang sudah tidak asing lagi bagi semua orang. Dari presiden, pejabat, PNS, bahkan orang-orang yang tergolong menengah ke bawah juga sudah memanfaatkan perangkat tersebut. Namun bagaimana sesungguhnya sejarah dari handphone itu sendiri?Sunday, October 23, 2011
Uji Ketahanan Komputer Anda dengan BurnInTest
PassMark BurnInTest™ adalah software yang memungkinkan semua sub-sistem utama komputer anda secara bersamaan ditest dalam mode stres untuk mengetahui dan mengukur kehandalan, ketahanan dan stabilitas komputer anda dan mampu untuk mengatasi dan mendiagnosa troubleshooting yang terjadi pada PC anda.
Monday, July 4, 2011
Kaspersky 2012 Trial Reset v1.1c
Hey guys. Tahukah temen-temen akan software yang namanya kaspersky Trial Resetter? Aplikasi ini berguna saat temen-temen menginstal kaspersky versi trial. Saat sudah habis masa trialnya, temen-temen bisa mengulangnya lagi dengan kaspersky trial resetter. Jadi kita bisa memakai versi trial selama yang kita suka :D
Saturday, July 2, 2011
Adguard 4.2.1.0
Hey Guys, buat kalian yang sering jengkel dengan iklan-iklan di web browser, sekarang ada program yang ampuh untuk memblok iklan. Program tersebut adalah adguard. Sesuai dengan namanya, Program ini berfungsi untuk memblokir popup dan iklan. Ia bekerja dengan semua browser terinstal, mempercepat loading halaman, dan mengurangi pemakaian bandwidth.
Subscribe to:
Posts (Atom)


