> > ----- Original Message ---- > > > > From: Björn Helgason <[EMAIL PROTECTED]> > > Bubblesort is fun > > If you have lots of lines and use only 0 and 1 it > flows > > like bubbles to the > > top. > > Show the results after each trip and wait a second
Here's visualization of different algorithms, which shows their behavior and how they compare to bubble sort. http://en.wikipedia.org/wiki/Sorting_algorithm Roger's solution is close to "Selection sort". Whereas in Raul's they are bubbling in parallel (I am not sure which one it corresponds to). view=: '*' <@:(#~"0)"1 ] view ((,~`,@.< [EMAIL PROTECTED]) , [EMAIL PROTECTED])/^:a: C NB. Oleg's original +---------+---------+---------+---------+---------+---------+---------+ |****** | | | | | | | |***** |****** | | | | | | |*********|***** |****** |** |** |** |** | |** |*********|***** |****** |**** |**** |**** | |**** |** |*********|***** |****** |**** |**** | |*********|**** |** |*********|***** |****** |***** | | |*********|**** |**** |*********|***** |****** | |******* | |*********|**** |**** |*********|******* | | |******* |**** |*********|******* |******* |*********| |**** |**** |******* |******* |*********|*********|*********| +---------+---------+---------+---------+---------+---------+---------+ repair=: C.~ _2&(({. > {:)\ # (<\ [EMAIL PROTECTED])) NB. Raul 1 bubsort=: repair @ ({. , [EMAIL PROTECTED]) view bubsort^:a: C +---------+---------+---------+---------+---------+ |****** |***** |** | | | |***** |****** |***** |** | | |*********|** | | |** | |** |*********|****** |***** |**** | |**** | | |**** |**** | |*********|**** |*********|****** |***** | | | |**** |**** |****** | |******* |*********|**** |*********|******* | | |**** |******* |******* |*********| |**** |******* |*********|*********|*********| +---------+---------+---------+---------+---------+ '*' <@:(#~"0)"1 (A.~ [EMAIL PROTECTED]@# +/ .* 0 , 2 </\ |.)^:a: C NB. Raul 2 +---------+---------+---------+---------+---------+---------+---------+---------+ |****** |***** |***** |** |** |** | | | |***** |****** |** |***** |**** | |** | | |*********|** |****** |**** | |**** | |** | |** |*********|**** | |***** | |**** |**** | |**** |**** | |****** | |***** |**** |**** | |*********| |*********| |****** |**** |***** |***** | | |*********| |*********|**** |****** |****** |****** | |******* | |*********|**** |*********|******* |******* |******* | | |******* |**** |*********|******* |*********|*********|*********| |**** |**** |******* |******* |*********|*********|*********|*********| +---------+---------+---------+---------+---------+---------+---------+---------+ A=: '' ((#~ , ($:@#~ -.)) (= <./))@([3 :'A=:A,<y') ^: (1<#) C NB. Roger's solution 0 0 2 4 4 5 6 7 9 9 view _10{.&>A +---------+---------+---------+---------+---------+---------+---------+ |****** | | | | | | | |***** | | | | | | | |*********|****** | | | | | | |** |***** |****** | | | | | |**** |*********|***** | | | | | |*********|** |*********|****** | | | | | |**** |**** |***** |****** | | | |******* |*********|*********|*********|*********|*********| | | |******* |******* |*********|*********|*********|*********| |**** |**** |**** |******* |******* |******* |*********| +---------+---------+---------+---------+---------+---------+---------+ ____________________________________________________________________________________ Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now. http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
