Julia

function interclassement(ensemble_1,ensemble_2)
   nouvelEnsemble = Structure(ensemble_1)
   Initialiser(ensemble_1)
   Initialiser(ensemble_2)
   while Enumeration(ensemble_1) && Enumeration(ensemble_2)
      element1 = Element_Courant(ensemble_1)
      element2 = Element_Courant(ensemble_2)
      if element1 <= element2
         element = Element_Courant(ensemble_1)
         Ranger_Element(nouvelEnsemble,element)
         Element_Suivant(ensemble_1)
      else
         element = Element_Courant(ensemble_2)
         Ranger_Element(nouvelEnsemble,element)
         Element_Suivant(ensemble_2)
      end
   end

   while Enumeration(ensemble_1)
      element = Element_Courant(ensemble_1)
      Ranger_Element(nouvelEnsemble,element)
      Element_Suivant(ensemble_1)
   end

   while Enumeration(ensemble_2)
      element = Element_Courant(ensemble_2)
      Ranger_Element(nouvelEnsemble,element)
     Element_Suivant(ensemble_2)
   end
   return nouvelEnsemble
end

ensemble_1 = File(10,20,30)
ensemble_2 = File(15,25,60)
Lister(ensemble_1)
Lister(ensemble_2)
nouvelEnsemble = interclassement(ensemble_1,ensemble_2)
Lister(nouvelEnsemble)

Swift

func interclassement 
   <_Element>(_ ensemble_1: Ensemble<_Element>
   ,_ ensemble_2:   Ensemble<_Element>) 
   -> Ensemble<_Element> {
   
   let nouvelEnsemble = Structure(ensemble_1)
   Initialiser(ensemble_1)
   Initialiser(ensemble_2)
   while Enumeration(ensemble_1) && Enumeration(ensemble_2) {
      let element1 = Element_Courant(ensemble_1)
      let element2 = Element_Courant(ensemble_2)
      if element1 <= element2 {
         let element = Element_Courant(ensemble_1)
         Ranger_Element(nouvelEnsemble,element)
         Element_Suivant(ensemble_1)
      } else {
         let element = Element_Courant(ensemble_2)
         Ranger_Element(nouvelEnsemble,element)
         Element_Suivant(ensemble_2)
      }
   }
   
   while Enumeration(ensemble_1) {
      let element = Element_Courant(ensemble_1)
      Ranger_Element(nouvelEnsemble,element)
      Element_Suivant(ensemble_1)
   }

   while Enumeration(ensemble_2) {
      let element = Element_Courant(ensemble_2)
      Ranger_Element(nouvelEnsemble,element)
      Element_Suivant(ensemble_2)
   }
   return nouvelEnsemble
}

copyright A rchitectures A pplicatives A vancées A3-Soft