One-liners sur HP Prime | Index de mes vidéos Youtube

Réponses possibles aux 2 questions finales

ZIPSORT

cat(EXECON("CHAR(SORT({&1,&2}))",ASC(A),ASC(B)))

Exemple de déroulement avec zipsort(“oui”,”non”) :

On transforme les 2 chaines A et B en listes de codes ASCII : {111,117,105} et {110,111,110}
On trie les couples de lettres SORT({&1,&2}) : SORT({111,110}) -> {110,111}
Transformation en chaine : CHAR({110,111}) -> “no”
On obtient la liste : {“no”,”ou”,”in”}
Concaténation finale : “noouin”

Lettres manquantes

cat(EXECON("CAS((&2≠1+&1)*char(1+&1))",ASC(T)))

Exemple de déroulement avec manque(“abcdfg”) :

On transforme la chaine en liste ASCII : {97,98,99,100,102,103}
Est-ce que l’élément suivant est différent de l’élément courant + 1 ?
EXECON(“&2≠1+&1”,{97,98,99,100,102,103}) -> {0,0,0,1,0}
La lettre manquante a comme code ASCII la lettre courante + 1 : char(1+&1)
En multipliant le caractère par 0 on a une chaine vide, sinon on récupère le caractère manquant
Concaténation des chaines vides + lettres manquantes
manque(“abdefgijklmnpqrstv”) -> “chou”

Quelques challenges (proposition de solutions plus bas)

Autant de “x” que de “o”

Afficher 1 s’il y a autant de “x” que de “o” dans une chaine de caractère, sinon afficher 0.

xox("xxabcoo") -> 1
xox("xxooxoox") -> 1
xox("xaxoboxocccoox") -> 0

Au milieu

Ecrire une fonction qui prend en paramètres un caractère X et le place au milieu de Y répété N fois. Lorsque ce n’est pas possible, renvoyer X.

Exemples :

middle(10,"A","*") --> "*****A*****"  ("A" est au milieu de 10 "*")
middle(9,"A","*") --> "A"             ("A" ne peut pas être au milieu)
middle(2,"X","+") --> "+X+"

mot pur

Un mot pur est un mot dont la somme des positions dans l’alphabet de chaque lettre est divisible par la longueur totale du mot.

Par exemple, “abcb” est un mot pur car 1 + 2 + 3 + 2 = 8 et 8/4 = 2.

pure("ccc") -> 1
pure("bed") -> 0

Palindrome

Renvoyer 1 si une chaine est un palindrome, 0 sinon. La chaine pourra être écrite en minuscules et/ou majuscules.

palind("Laval") -> 1
palind("Angers") -> 0

Somme des N plus grands

Ecrire une fonction qui à partir d’une liste L et d’un entier N renvoie la somme des N entiers les plus grands de L.

sumgrand({4,9,2,3,7,1},2) --> 16    (Les 2 nombres les + grands sont 9 et 7)
sumgrand({-7,9,12,-1,-3},3) --> 20  (9 + 12 - 1 = 20)

Somme sans doublons

Ecrire une fonction qui fait la somme des éléments d’une liste, mais ignore ceux qui sont dupliqués.

Exemples : pour la liste [3, 4, 3, 6] la fonction devra renvoyer 10
et pour la liste [1, 10, 3, 10, 10] la fonction devra renvoyer 4.

Project Euler n°1

L’énoncé est ici

Exemples de solutions