Le genre chanceux

Défi hebdomadaire 284

Chaque semaine, Mohammad S. Anwar envoie The Weekly Challenge, une chance pour nous tous de trouver des solutions à deux tâches hebdomadaires. Mes solutions sont d'abord écrites en Python, puis converties en Perl. C'est une excellente façon pour nous tous de pratiquer le codage.

Défi, Mes solutions

Tâche 1 : Entier chanceux

Tâche

Vous recevez un tableau d'entiers, @ints.

Écrivez un script pour trouver l'entier porte-bonheur s'il est trouvé, sinon renvoyez -1. S'il y en a plusieurs, renvoyez le plus grand.

Un entier chanceux est un entier qui a une fréquence dans le tableau égale à sa valeur.

Ma solution

Cette tâche est relativement simple et ne nécessite donc pas beaucoup d'explications. Je crée un dict (hachage en Perl) de la fréquence de chaque entier, appelé freq. Je parcours ensuite les touches de fréquence (la valeur la plus élevée en premier). Si la fréquence de l'entier est la même que la valeur, je renvoie ce nombre. Si l'itérateur est épuisé, je renvoie -1.

def lucky_integer(ints: list) -> str:
    freq = Counter(ints)

    for i in sorted(freq, reverse=True):
        if i == freq[i]:
            return i

    return -1

Exemples

$ ./ch-1.py 2 2 3 4
2

$ ./ch-1.py 1 2 2 3 3 3
3

$ ./ch-1.py 1 1 1 3
-1

Tâche 2 : Tri relatif

Tâche

Vous recevez deux listes d'entiers, @list1 et @list2. Les éléments de la @list2 sont distincts et également de la @list1.

Écrivez un script pour trier les éléments de la @list1 de telle sorte que l'ordre relatif des éléments dans @list1 soit le même que dans la @list2. Les éléments manquants dans @list2 doivent être placés à la fin de @list1 par ordre croissant.

Ma solution

Bien que Python ait la fonction d'index pour les listes, il déclenchera une exception ValueError si l'élément n'est pas dans la liste. Par conséquent, j'ai créé une fonction appelée find_index qui renverra la position de val dans lst s'il est trouvé, ou renverra la longueur de la liste sinon.

def find_index(lst: list, val: int):
    return lst.index(val) if val in lst else len(lst)

La solution Perl a également la même fonction et utilise le first_index de List::MoreUtil pour trouver la position.

sub find_index( $lst, $val ) {
    my $idx = first_index { $_ == $val } @$lst;
    return $idx == -1 ? scalar(@$lst) : $idx;
}

J'utilise la fonction sorted pour trier la première liste. Chaque élément est trié par un tuple de la position de l'index et de l'entier. Cela garantit que la première partie de la liste résultante est triée en fonction de la position dans la deuxième liste, tandis que les valeurs restantes sont triées numériquement.

def relative_sort(list1: list, list2: list) -> list:
    return sorted(list1, key=lambda i: (find_index(list2, i), i))

La solution Perl utilise la même logique, mais une syntaxe complètement différente.

sub main ($lists) {
    my $list1 = $lists->[0];
    my $list2 = $lists->[1];

    my @solution = sort {
        find_index( $list2, $a ) <=> find_index( $list2, $b )
          or $a <=> $b
    } @$list1;
    say '(', join( ', ', @solution ), ')';
}

Pour la saisie via la ligne de commande, je prends une chaîne JSON qui doit être une liste de liste d'entiers.

Exemples

$ ./ch-2.py "[[2, 3, 9, 3, 1, 4, 6, 7, 2, 8, 5],[2, 1, 4, 3, 5, 6]]"
(2, 2, 1, 4, 3, 3, 5, 6, 7, 8, 9)

$ ./ch-2.py "[[3, 3, 4, 6, 2, 4, 2, 1, 3],[1, 3, 2]]"
(1, 3, 3, 3, 2, 2, 4, 4, 6)

$ ./ch-2.py "[[3, 0, 5, 0, 2, 1, 4, 1, 1],[1, 0, 3, 2]]"
(1, 1, 1, 0, 0, 3, 2, 4, 5)

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!