pendekar alis 3 (cerita 1) : latah

pada suatu hari (hehehe ciri2 bercerita orang2 biasanya ada kata2 sakti ini nih)

pendekar alis tiga sedang menyampaikan materi kepada murid-muridnya,
berikut kutipannya

"wahai murid-muridku janganlah kalian latah, karena kalian akan dianggap goblog
oleh lawan2 kalian dan juga kalian akan menjadi mudah sekali dikalahkan
dalam sebuah pertempuran".

lalu ada seorang murid pendekar alis tiga yg datang telat
dan dia mengetuk pintu dengan keras sekali sehingga
pendekar alis tiga menjadi kaget

lalu pendekar alis tiga berteriak kaget

"EH GOBLOG, EH GOBLOG"

~cerita gak jelas

pernahkah

pernahkah kamu menangis ketika membaca blog orang lain?

saya pernah

hari esok semoga lebih baik dari hari ini

semoga hari esok lebih baik dari hari ini

ubah ke binary

binary(0, [0]).
binary(1, [1]).

binary(X, L):- X>1,
X1 is X//2,
binary(X1, L1),
S is X mod 2,
binary(S, Sisa),
append(L1,Sisa, L).

quick sort style sorting using prolog

program prolog buat sorting pakai gaya quick sort

-----start source----
div(_, [], [], []).
div(Pivot, [D|Data], Left, Right):- D=
div(Pivot, Data, Left2,Right),
append([D|Left2],[], Left).

div(Pivot, [D|Data], Left, Right):- D>Pivot,
div(Pivot, Data, Left,Right2),
append([D|Right2], [], Right).


sorting([],[]).
sorting([X1|X],Y) :- div(X1,X,Kiri,Kanan),
sorting(Kiri,Kiri2),
sorting(Kanan,Kanan2),
append(Kiri2,[X1|Kanan2],Y).
-------end source-----

bikin program pakai prolog bikin pusing tapi bikin penasaran juga

oh iya

cara jalanin programnya yaitu

?- sorting([2,3,1,2,3,4], X).

maka akan keluar jawabannya

X = [1, 1, 2, 4, 4, 6]

yes

~orangIseng