{"id":108,"date":"2022-03-13T18:29:37","date_gmt":"2022-03-13T17:29:37","guid":{"rendered":"https:\/\/blog.univ-angers.fr\/mathsinfo\/?page_id=108"},"modified":"2022-05-19T07:50:34","modified_gmt":"2022-05-19T06:50:34","slug":"apl-et-rpl-caracteres","status":"publish","type":"page","link":"https:\/\/blog.univ-angers.fr\/mathsinfo\/apl-et-rpl-caracteres\/","title":{"rendered":"et RPL : Caract\u00e8res"},"content":{"rendered":"

Dans cette vid\u00e9o sur APL<\/a>, j’explique comment travailler sur chacun des \u00e9l\u00e9ments d’une liste. Nous avons vu de DOSUBS ou DOLIST permettent d’arriver au m\u00eame r\u00e9sultat. Voyons sur cet exemple que cela fonctionne \u00e9galement avec des chaines de caract\u00e8res.<\/p>\n

Exemple 4 – R.A.T.P<\/h2>\n
\u2283\u00a8 'RENTRE' 'AVEC' 'TES' 'PIEDS'\nRATP<\/pre>\n
Ce qui signifie prendre le premier \u00e9l\u00e9ment \u2283 de chaque terme du vecteur. Donc bien voir que :<\/p>\n
\u2283 'RENTRE'\nR\n\u2283 'RENTRE' 'AVEC' 'TES' 'PIEDS'\nRENTRE<\/pre>\n
En RPL, le premier \u00e9l\u00e9ment d’une liste peut \u00eatre r\u00e9cup\u00e9r\u00e9 par HEAD. Ce qui donne :<\/p>\n
2: {\"RENTRE\" \"AVEC\" \"TES\" \"PIEDS\"}\n1: \u00ab 1 \u00ab HEAD \u00bb DOLIST \u00bb\nEVAL<\/strong>\n\n1: {\"R\" \"A\" \"T\" \"P\"}<\/pre>\n
Pour avoir la concat\u00e9nation et obtenir \u00ab\u00a0RATP\u00a0\u00bb, sachez que le \u2211LIST fonctionne aussi avec les listes de chaines de caract\u00e8res…<\/p>\n
2: {\"RENTRE\" \"AVEC\" \"TES\" \"PIEDS\"}\n1: \u00ab 1 \u00ab HEAD \u00bb DOLIST \u2211LIST \u00bb\nEVAL<\/strong>\n\n1: \"RATP\"<\/pre>\n
Exemple 5 – Brin d’ADN ?<\/h2>\n
Toujours tir\u00e9 d’une de mes vid\u00e9os sur APL, on se demande si une chaine de caract\u00e8res est un brin d’ADN, c’est-\u00e0-dire qu’il n’y a que les lettres A, C, T ou G. Le ET logique se note \u2227 en APL.<\/p>\n
ADN \u2190 {\u2227\/ \u2375 \u220a 'ACTG'}  \u235d R\u00e9duction + appartenance\nADN 'ACCTTGCCA'\nOutput : 1          \u235d C'est bien un brin ADN\nADN 'ACCTTXCCA'\nOutput : 0          \u235d Ce n'est pas un brin ADN<\/pre>\n
Commen\u00e7ons par voir comment s\u00e9parer les lettres d’une chaine de caract\u00e8res en RPL. Une des solutions propos\u00e9es par\u00a0\u00a0Norman Brenner<\/a>\u00a0est celle-ci :<\/p>\n
\u00ab \u2192 s \u00ab \u00ab s j j SUB \u00bb 'j' 1 s SIZE 1 SEQ \u00bb \u00bb\n'SP. STO<\/strong><\/pre>\n
Ce qui signifie : on cr\u00e9e la suite (SEQ) pour j allant de 1 jusqu’\u00e0 la taille de la chaine o\u00f9 chaque terme est \u00e9gal \u00e0 la portion de la chaine comprise entre j et j, donc le ji\u00e8me<\/sup> caract\u00e8re.<\/p>\n
1: \"ACCTA\"\nVAR<\/strong> SP.\n\n1: {\"A\" \"C\" \"C\" \"T\" \"A\"}<\/pre>\n
On doit maintenant parcourir chacun des caract\u00e8res de la liste et regarder s’ils sont tous dans \u00ab\u00a0ACTG\u00a0\u00bb. Pour cela on va utiliser POS qui renvoie soit la position de la lettre dans la chaine soit z\u00e9ro.<\/p>\n
Dans un second temps on effectue une r\u00e9duction par un ET sur l’ensemble des r\u00e9sultats, c’est-\u00e0-dire que l’on aura 0 si une des lettres n’\u00e9tait pas dans \u00ab\u00a0ACTG\u00a0\u00bb. Cela revient \u00e0 faire le produit des \u00e9l\u00e9ments. Pour \u00e9viter d’avoir un nombre (produit des positions des lettres), on va regarder le signe du r\u00e9sultat. Ce qui donne :<\/p>\n
\u00ab SP. 1 \u00ab \"ACTG\" SWAP POS \u00bb DOLIST \u03a0LIST SIGN \u00bb\n'ADN STO<\/strong>\n\n\"ACCTTGCCA\"\nVAR<\/strong> ADN\n\n1.           # C'est bien un brin ADN \n\n\"ACCTTXCCA\"\nADN\n\n0.           # Ce n'est pas un brin ADN<\/pre>\n
Exemple 6 – Prix des sushis<\/h2>\n
Nouvel exemple de mes vid\u00e9os, sachant qu’un sushi co\u00fbte 2 EUR, combien co\u00fbte cette chaine : \u00a0\u00bb\u00a0 \u00a0S SS SSS S\u00a0 \u00a0S\u00a0\u00bb ?<\/p>\n
Il faut compter le nombre de \u00ab\u00a0S\u00a0\u00bb et multiplier le r\u00e9sultat par 2.<\/p>\n
SU \u2190 {2 \u00d7 +\/ \u2375='S'}\nSU '   S SS SSS S   S'\nOutput: 16<\/pre>\n
Vous ne devriez avoir aucun mal \u00e0 lire cette version en RPL :<\/p>\n
\u00ab SP. 1 \u00ab \"S\" == \u00bb DOSUBS \u2211LIST 2 \u00d7 \u00bb \u00bb\n'SU STO<\/strong>\n\"   S SS SSS S   S\"\nVAR<\/strong> SU\n\n16.<\/pre>\n
ou encore avec MAP :<\/p>\n
\u00ab SP. \u00ab \"S\" == \u00bb MAP \u2211LIST 2 \u00d7 \u00bb \u00bb\n'SU STO\n\"   S SS SSS S   S\"\nVAR<\/strong> SU\n\n16.<\/pre>\n
Lire la suite…<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"
Dans cette vid\u00e9o sur APL, j’explique comment travailler sur chacun des \u00e9l\u00e9ments d’une liste. Nous avons vu de DOSUBS ou DOLIST permettent d’arriver au m\u00eame r\u00e9sultat. Voyons sur cet exemple que cela fonctionne \u00e9galement avec des chaines de caract\u00e8res. Exemple … Continuer la lecture →<\/span><\/a><\/p>\n","protected":false},"author":4913,"featured_media":0,"parent":0,"menu_order":0,"comment_status":"closed","ping_status":"closed","template":"","meta":{"footnotes":""},"class_list":["post-108","page","type-page","status-publish","hentry"],"_links":{"self":[{"href":"https:\/\/blog.univ-angers.fr\/mathsinfo\/wp-json\/wp\/v2\/pages\/108","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.univ-angers.fr\/mathsinfo\/wp-json\/wp\/v2\/pages"}],"about":[{"href":"https:\/\/blog.univ-angers.fr\/mathsinfo\/wp-json\/wp\/v2\/types\/page"}],"author":[{"embeddable":true,"href":"https:\/\/blog.univ-angers.fr\/mathsinfo\/wp-json\/wp\/v2\/users\/4913"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.univ-angers.fr\/mathsinfo\/wp-json\/wp\/v2\/comments?post=108"}],"version-history":[{"count":1,"href":"https:\/\/blog.univ-angers.fr\/mathsinfo\/wp-json\/wp\/v2\/pages\/108\/revisions"}],"predecessor-version":[{"id":174,"href":"https:\/\/blog.univ-angers.fr\/mathsinfo\/wp-json\/wp\/v2\/pages\/108\/revisions\/174"}],"wp:attachment":[{"href":"https:\/\/blog.univ-angers.fr\/mathsinfo\/wp-json\/wp\/v2\/media?parent=108"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}