Beiträge von edduzzz

Zitat von The User

Also so funktioniert es zumindest:

Code

mysort([], []).
mysort([X], [X]).
mysort([Pivot|Tail], Result) :- leftFromPivot(Pivot, Tail, Left), rightFromPivot(Pivot, Tail, Right), flatten([Left, Pivot, Right], Result).


leftFromPivot(Pivot, [], []).
leftFromPivot(Pivot, [H|T], U) :- H > Pivot, leftFromPivot(Pivot, T, U).
leftFromPivot(Pivot, [H|T], [H|U]) :- H =< Pivot, leftFromPivot(Pivot, T, U).


rightFromPivot(Pivot, [], []).
rightFromPivot(Pivot, [H|T], U) :- H =< Pivot, rightFromPivot(Pivot, T, U).
rightFromPivot(Pivot, [H|T], [H|U]) :- H > Pivot, rightFromPivot(Pivot, T, U).

Alles anzeigen

....so funktioniert bei mir aber nicht...

?- mysort([2,5,1,3,6,4],R).
R = [1, 2, 5, 3, 6, 4] ;
false.

linke und rechte Seite muss noch geordnet werden...
habs so erweitert...

mysort([], []).
mysort([X], [X]).
mysort([Pivot|Tail], Result) :- 
	leftFromPivot(Pivot, Tail, Left), mysort(Left, SortedLeft),
	rightFromPivot(Pivot, Tail, Right), mysort(Right, SortedRight), 
	flatten([SortedLeft, Pivot, SortedRight], Result), !.


leftFromPivot(_Pivot, [], []).
leftFromPivot(Pivot, [H|T], U) :- H > Pivot, leftFromPivot(Pivot, T, U).
leftFromPivot(Pivot, [H|T], [H|U]) :- H =< Pivot, leftFromPivot(Pivot, T, U).


rightFromPivot(_Pivot, [], []).
rightFromPivot(Pivot, [H|T], U) :- H =< Pivot, rightFromPivot(Pivot, T, U).
rightFromPivot(Pivot, [H|T], [H|U]) :- H > Pivot, rightFromPivot(Pivot, T, U).






?- mysort([2,5,1,3,6,4],R).
R = [1, 2, 3, 4, 5, 6].


?-

ich habe vor nem jahr mein ipod touch "gejailbreaked", an und aus machen war nie ein problem, und das gerät lies sich problemlos mit itunes wiederherstellen, ich ich zuletzt gemacht habe, aber aus anderen grunden...

vielleicht hilft dir das:
http://fettig.net/weblog/2007/07…fari-on-iphone/

wie wäre es mit jailbreak, soviel ich weiß ist es jetzt voll untertützt, solange es nicht um illegalen software geht...
es gibt dann bei cydia apps(open source) die java unterstütuzng verprechen, habe es aber leider bis dato nicht probiert...