2.10.oz

   1 /****************************************************************************
   2 Ejercicio: 2.10
   3 Alumno: Leandro Lucarella
   4 Fecha: mié jul 27 15:59:18 ART 2005
   5 ****************************************************************************/
   6
   7 functor
   8 import
   9     Application
  10     System
  11 define
  12
  13     fun {SMerge Xs Ys}
  14        case Xs#Ys
  15        of nil#Ys then Ys
  16        [] Xs#nil then Xs
  17        [] (X|Xr)#(Y|Yr) then
  18            if X=<Y then X|{SMerge Xr Ys}
  19            else Y|{SMerge Xs Yr} end
  20        end
  21     end
  22
  23     {System.show {SMerge [5 6 7 8 9] [0 1 2 3 4]}}
  24
  25     {Application.exit 0}
  26 end
  27
  28 % vim: set et sw=4 sts=4 filetype=oz :