Contents

(define bubble-sort 
  X -> (fix (function bubble) X)) 

(define bubble 
  [] -> []  
  [X] -> [X]  
  [X Y | Z] -> [Y | (bubble [X | Z])]   where    (> Y X)
  [X Y | Z] -> [X | (bubble [Y | Z])])












 

Version data entries

3 entries across 3 versions & 1 rubygems

Version	Path
shen-ruby-0.15.1	shen/release/test_programs/bubble_version_2.shen
shen-ruby-0.15.0	shen/release/test_programs/bubble_version_2.shen
shen-ruby-0.14.0	shen/release/test_programs/bubble_version_2.shen