L’exemple classique de produit interne est la fonction SOMMEPROD<\/strong> d’Excel permettant de faire une somme de produits. Ceci se traduit en APL par :<\/p>\n Ce cas particulier s’obtient facilement en RPL :<\/p>\n D’autres cas utiles en version APL :<\/p>\n Et en version RPL :<\/p>\n Remarquez que l’on aurait pu utiliser une \u00e9criture plus proche de l’APL :<\/p>\n On en d\u00e9duit une g\u00e9n\u00e9ralisation du produit interne \u00ab\u00a0x f.g y\u00a0\u00bb,\u00a0\u00a0Norman Brenner<\/a>\u00a0propose la fonction IN.<\/strong> (not\u00e9e IOPROD dans le document original)<\/p>\n Exemple :<\/p>\n Le principe est assez simple, l’op\u00e9rateur +<\/strong> est mis dans la variable f<\/strong>\u00a0(et disparait de la pile), EVAL<\/strong> fait alors le produit entre les 2 listes puis on r\u00e9duit (application de mani\u00e8re r\u00e9cursive avec STREAM<\/strong>) en utilisant f<\/strong>, ce qui signifie ici faire la somme des termes.<\/p>\n Il s’agit de trouver quelle est la plus grande valeur commune entre 2 listes (ces listes pouvant comporter des nombres n\u00e9gatifs ou nuls). Voici le r\u00e9sultat \u00e0 traduire en RPL :<\/p>\n Solution<\/span> : Le symbole \u237a d\u00e9signe l’op\u00e9rande \u00e0 gauche et \u2375 l’op\u00e9rande \u00e0 droite. On cr\u00e9e le vecteur logique \u237a \u220a \u2375 qui permettra de ne garder que les \u00e9l\u00e9ments de \u237a qui appartiennent \u00e0 \u2375. On r\u00e9duit \u00ab\u00a0\/\u00a0\u00bb ensuite ce vecteur par la fonction max \u2308. En utilisant la fonction CL.<\/strong> que l’on a construite dans la premi\u00e8re partie et qui permet de faire une compression logique :<\/p>\n Ou notre version simplifi\u00e9e :<\/p>\n On peut d\u00e9finir MAXI<\/strong> par :<\/p>\n Testons :<\/p>\n Ou, si l’on ne veut pas utiliser CL.<\/strong> et n’avoir qu’une seule boucle:<\/p>\n Signalons que \u00ab MAX \u00bb STREAM ne fonctionne pas lorsqu’une liste est vide.<\/p>\n Lire la suite…<\/a><\/p>\n","protected":false},"excerpt":{"rendered":" Produit interne L’exemple classique de produit interne est la fonction SOMMEPROD d’Excel permettant de faire une somme de produits. Ceci se traduit en APL par : 1 2 3 +.\u00d7 4 5 6 Output: 32 \u235d (1\u00d74) + (2\u00d75) + … Continuer la lecture 1 2 3 +.\u00d7 4 5 6\nOutput: 32 \u235d (1\u00d74) + (2\u00d75) + (3\u00d76)<\/pre>\n
2: {1 2 3}\n1: {4 5 6}\n\u00d7 # Produit terme \u00e0 terme des 2 listes\n\u2211LIST # Somme des \u00e9l\u00e9ments \n\n1: 32<\/pre>\n\u2227.< \u235d Tous plus petits que...\n\u2228.< \u235d Au moins un plus petit que...\n\n4 6 8 \u2227.< 10\n1 \u235d Tous plus petits que 10\n14 16 8 \u2228.< 10\n1 \u235d Au moins un plus petit que 10<\/pre>\n
2: {4 6 8}\n1: 10\n< \u03a0LIST # Produit de bool\u00e9ens = ET\n\n1: 1 # Tous plus petits que 10\n\n2: {4 6 8}\n1: 10\n< \u2211LIST SIGN # Signe somme bool\u00e9ens = OU\n\n1: 1 # Au moins un plus petit que 10<\/pre>\n2: {4 6 8}\n1: \u00ab 10 < \u00ab AND \u00bb STREAM \u00bb\nEVAL<\/strong>\n1: 1 # Tous plus petits que 10\n\n2: {4 6 8}\n1: \u00ab 10 < \u00ab OR \u00bb STREAM \u00bb\nEVAL<\/strong>\n1: 1 # Au moins un plus petit que 10<\/pre>\n\u00ab \u2192 f \u00ab EVAL f STREAM \u00bb \u00bb\n'IN. STO<\/strong><\/pre>\n
4: {1 2 3}\n3: {4 5 6}\n2: \u00ab \u00d7 \u00bb\n1: \u00ab + \u00bb\nVAR<\/strong> IN.\n\n1: 32<\/pre>\nExercice r\u00e9vision
Plus grande valeur commune entre 2 listes<\/h2>\nMAXI \u2190 {\u2308\/ (\u237a \u220a \u2375) \/ \u237a}\n2 3 8 1 MAXI 3 5 7 8 9\nOutput: 8<\/pre>\n\u00ab 2 \u00ab IF NOT THEN DROP END \u00bb DOLIST \u00bb\n'CL. STO<\/strong><\/pre>\n
\u00ab SWAP IFT \u00bb\n'CL. STO<\/strong><\/pre>\n
\u00ab \u2192 v \u00ab DUP\n 1 \u00ab v SWAP POS SIGN \u00bb DOLIST \u00bb # \u237a \u220a \u2375 ?\n CL. # (\u237a \u220a \u2375) \/ \u237a\n \u00ab MAX \u00bb STREAM # \u2308\/\n\u00bb\n'MAXI STO<\/strong><\/pre>\n
2: {2 3 8 1}\n1: {3 5 7 8 9}\nVAR<\/strong> MAXI\n\n1: 8<\/pre>\n\u00ab \u2192 v \n \u00ab DUP \n 2 \u00ab IF v SWAP POS NOT # Boucle (\u237a \u220a \u2375) \/ \u237a\n THEN DROP END\n \u00bb DOLIST\n \u00bb\n \u00ab MAX \u00bb STREAM # \u2308\/\n\u00bb\n'MAXI STO<\/strong><\/pre>\n
2: {2 3 8 1}\n1: {4 4 4 4}\nVAR<\/strong> MAXI\n\nSTREAM Error # Car aucun \u00e9l\u00e9ment en commun<\/pre>\n\n\n