VDH-Bruno

Bonjour à tous, Dans l'appellation "Intelligence Artificielle", je trouve intéressant l'association de ces 2 mots, tout en gardant à l'esprit le sens du radical du mot Artificielle. Ma petite pensée sur le sujet qui fait et fera couler encore beaucoup d'encre😉

Bien vu, pas sur que j'aurais réussi à débugger cela en moins de temps que toi. Merci pour le retour, je garderais cela dans un coin de ma tête, sait on jamais.. A+ Bruno

Bonjour -Olivier- J'espère être dans la liste des membres que tu appréciais, bien que je sois en fort retrait sur AutoCAD je ne fais toujours pas partie des retraités, bref je salue avec plaisir ton retour ici. Amicalement Bruno

Bonjour Steven Si tu es toujours dans le même secteur géographique, on peut en discuter en MP si tu le souhaites, l'occasion pour moi de réviser les bases et d'un renvoie d'ascenseur. Salutations Bruno

Bonjour; Peut être que cela répondra à votre besoin: (initget "Oui Non") (setq rep1 (cond ((getkword "\nContinuer ? [Oui/Non] <Oui>: ")) ("Oui")))

Bonjour, Une proposition tiré de cette discussion sans utiliser nth, (traité comme un chalenge perso pour l'approfondissement de ma compréhension du lisp). (defun moveFromTo (from to lst / loop ele) (defun loop (from to lst) (cond ((minusp (max from to)) lst) ((zerop from) (setq ele (car lst)) (loop (1- from) to (cdr lst))) ((zerop to) ((lambda (l) (cons ele l)) (loop from (1- to) lst))) (T (cons (car lst) (loop (1- from) (1- to) (cdr lst)))) ) ) (if (/= from to) (loop from to lst) lst ) ) _$ (moveFromTo 2 1 '("Lundi" "Mercredi" "Mardi" "Jeudi" "Vendredi" "Samedi" "Dimanche")) ("Lundi" "Mardi" "Mercredi" "Jeudi" "Vendredi" "Samedi" "Dimanche")

*temps Non pas autant que je le souhaiterais, mais il m'en reste tout de même un petit peu pour te décoder (et te déchiffrer 😁) Sinon même si je ne parle pas couramment le F#, je lirais avec intérêt ces lignes de codes, j'aime bien comprendre les avantages qu'offrent d'autres langages, cela me permet par la suite de réussir à développer des approches différentes pour d'autres problèmes.

(decryptChars "X¨»²¦r|si¯´vu¬i°lqi©j" "(gile)") 😉

Bonjour, Très rapidement étant en temps limité... J'ai retapé ma version de l'époque basé sur l'intégralité de la table de code ASCII, très proche de l'algorithme décrit dans la page Wikipédia: (defun vigenere_ASCII (text key mode / i lgkey) (setq i -1 mode (if mode + -) key (vl-string->list key) lgkey (length key) ) (vl-list->string (mapcar '(lambda (x) (setq i (1+ i)) (rem (+ 256 (mode x (nth (rem i lgkey) key))) 256)) (vl-string->list text) ) ) ) Pour tester: _$ (vigenere_ASCII "J'adore écoute la radio toute la journée" "MUSIQUE" T) "—|´­ÀǪm>¶¸ÆɪmÁ´iö©¶Äs½Àʹ²u¿ªq¿´ÂÇÁ2¶" _$ (vigenere_ASCII "—|´­ÀǪm>¶¸ÆɪmÁ´iö©¶Äs½Àʹ²u¿ªq¿´ÂÇÁ2¶" "MUSIQUE" nil) "J'adore écoute la radio toute la journée" Code que j'ai rapidement adapté pour la demande suivant, sans chercher à plus... Code: (defun vigenere_26 (text key mode / i lgkey) (setq i -1 mode (if mode + -) key (vl-string->list (strcase key)) lgkey (length key) ) (vl-list->string (mapcar '(lambda (x) (cond ((< 64 x 91) (+ (rem (+ 26 (mode (- x 65) (- (nth (rem (setq i (1+ i)) lgkey) key) 65) ) ) 26 ) 65 ) ) ((< 96 x 123) (+ (rem (+ 26 (mode (- x 97) (- (nth (rem (setq i (1+ i)) lgkey) key) 65) ) ) 26 ) 97 ) ) (T x) ) ) (vl-string->list text) ) ) ) Pour tester: $ (vigenere_26 "J'adore ecouter la radio toute la journee" "MUSIQUE" T) "V'uvwhy ioimbul pm lslyi xaolm bu naojvuy" _$ (vigenere_26 "V'uvwhy ioimbul pm lslyi xaolm bu naojvuy" "MUSIQUE" nil) "J'adore ecouter la radio toute la journee" (Ps: De mémoire j'avais une autre variante basé sur la création d'une table d'association, un peu plus fastidieuse à réécrire... que de passer par un calcul arithmétique.) A+ Bruno

Perso je me suis déjà confronté à l'exercice par le passé, ne retrouvant pas mes codes, je retaperais ces quelques lignes quand j'aurais un AutoCAD sous la main...

Bonjour, Historiquement le codage/décodage Vigenère dont la table était constitué des 26 caractères alphabétiques, ne tient pas compte de la casse, ni des caractères spéciaux. Le codage étant initialement basé sur une clef, l'introduction d'une seconde clef est le résultat de variantes survenue par la suite. Edit: Oup's corrigé le lapsus 256 par 26😉

Je verrais pour intégrer cette possibilité dans le code, pour l'instant je n'ai pas AutoCAD sous la main, donc en provisoire je te propose de ne charger le lisp que sur les fichiers dont tu dois mettre à jour la numérotation. En provisoire pour ton cas si le lisp n'est pas chargé la numérotation reste figé à chaque changement d'onglet. A+ Bruno

Bonjour La Lozère, Juste pour bien comprendre, tu souhaites supprimer ou désactiver la pagination auto? (Le but étant de la figer je suppose) A+ Bruno

Bonsoir, Petite variation du code de (gile) pour le plaisir de montrer la souplesse du langage, donc si on ne voulait pas passer par le calcul en coordonnée polaire, et préférer passer par le calcule des coordonnées cartésiennes. La variante suivante travaille directement sur les d'opérateurs mathématiques, les arguments fx et fy stockent les opérandes de déplacement (+ -), dans le même esprit que la proposition de BonusCAD, ceci en remplacement des coefficients directeurs +1 ou -1 utilisé dans le code d'origine. (defun fibSpiral (p i / loop b) (setq b (- (sqrt 2.) 1.)) (defun loop (i px py n m fx fy) (vl-list* (list 10 px py) (cons 42 b) (if (< 0 i) (loop (1- i) (fx px m) (fy py m) m (+ n m) (if (= fy -) + -) fx) ) ) ) (entmakex (append (list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 100 "AcDbPolyline") (cons 90 (+ i 1)) ) (loop i (car p) (cadr p) 0 1 - +) ) ) )

Merci je prends, j'étais passé à coté de cette propriété. Joli codes comme toujours 🙂