majidmir
پنج شنبه 12 خرداد 1390, 22:09 عصر
سلام
می خوام کد زیرو با visual prolog بنویسم ولی متاسفانه تا به حال با این برنامه کار نکردم حتی نمیدونم باید کد رو تو کدوم قسمت وارد کنم ، یه پروژه جدید از نوع کنسول باز میکنم ولی بدش دیگه نمیدونم باید چکار کنم .کد برنامم رو میزارم یکی لطف کنه بگه باید چکار کنم ؟
% Quicksort in Prolog gtq(X,Y) :- X @> Y. quicksort( [],[] ). quicksort( [X | Tail], Sorted) :- split( X, Tail, Small, Big), quicksort( Small, SortedSmall), quicksort( Big, SortedBig), conc( SortedSmall, [X | SortedBig], Sorted). split( _, [], [], []). split( X,[Y | Tail], [Y | Small], Big) :- gtq( X, Y),!, split( X, Tail, Small, Big). split( X, [Y | Tail], Small, [Y | Big] ) :- split( X, Tail, Small, Big). conc([],L,L). conc( [X | L1], L2, [X | L3]) :- conc( L1, L2, L3).
اینم یه سکرین شات از محیط برنامه پرولوگ کد رو کدوم قسمت باید بنویسم و چطور ؟
می خوام کد زیرو با visual prolog بنویسم ولی متاسفانه تا به حال با این برنامه کار نکردم حتی نمیدونم باید کد رو تو کدوم قسمت وارد کنم ، یه پروژه جدید از نوع کنسول باز میکنم ولی بدش دیگه نمیدونم باید چکار کنم .کد برنامم رو میزارم یکی لطف کنه بگه باید چکار کنم ؟
% Quicksort in Prolog gtq(X,Y) :- X @> Y. quicksort( [],[] ). quicksort( [X | Tail], Sorted) :- split( X, Tail, Small, Big), quicksort( Small, SortedSmall), quicksort( Big, SortedBig), conc( SortedSmall, [X | SortedBig], Sorted). split( _, [], [], []). split( X,[Y | Tail], [Y | Small], Big) :- gtq( X, Y),!, split( X, Tail, Small, Big). split( X, [Y | Tail], Small, [Y | Big] ) :- split( X, Tail, Small, Big). conc([],L,L). conc( [X | L1], L2, [X | L3]) :- conc( L1, L2, L3).
اینم یه سکرین شات از محیط برنامه پرولوگ کد رو کدوم قسمت باید بنویسم و چطور ؟