Forum de l’article

Algorithmes de tri

modération a priori

Ce forum est modéré a priori : votre contribution n’apparaîtra qu’après avoir été validée par un administrateur du site.

Qui êtes-vous ?
Votre message

Pour créer des paragraphes, laissez simplement des lignes vides.

Lien hypertexte

(Si votre message se réfère à un article publié sur le Web, ou à une page fournissant plus d’informations, vous pouvez indiquer ci-après le titre de la page et son adresse.)

Rappel de la discussion
Algorithmes de tri
Meir Faraj - le 26 juin 2006

autre possibilite de traduction de l’algorithme tri_insert en scheme qui peut etre plus claire pour certain :

(define (tri_insert_perso fp_vector)

    (let (
        (vLength (vector-length fp_vector))

      )
      (do ((i 1 (+ i 1)))

        ((>= i vLength)fp_vector)
        (let* (
            (current_val (vector-ref fp_vector i))
            (found_new_index (do ((j 0 (+ j 1)))
                ((or (>= j i) (>= (vector-ref fp_vector j) current_val))j)

              ))

            )
            (do ((k i (- k 1)))

              ((<= k found_new_index))
              (vector-set ! fp_vector k (vector-ref fp_vector (- k 1)))

            )
            (vector-set ! fp_vector found_new_index current_val)

          )

        )

      )


    )