[Sur] Cuales numeros pueden extraer de la sequencia de los numeros del año 2011

[Daniel Ajoy]

On Thu, 13 Jan 2011 11:09:56 -0500, <olpc-sur-request en lists.laptop.org> wrote:

> From: Edward Cherlin <echerlin en gmail.com>
> ¿Cuales numeros pueden extraer de la sequencia de los numeros del año 2011?
> Como
> 2+0-1-1 = 0
> 2+0/(1+1) = 1
> ...
> 20 * 11 =220
> 2011 = 2011
> Es muy facil en lenguajes de programación con otros funciones, especialmente en APL.

Había dicho:

===============
Usando notación prefija:

[palabra diferencia producto 2 0 1 1] -11
[diferencia diferencia producto 2 0 1 1] -2
[division diferencia producto 2 0 1 1] -1
...
===============

Pero noté que 20 * 11 = 220 no podía generarse así. Por lo que tuve que hacer modificaciones. Estos son los resultados diferentes:



[producto 2 palabra diferencia 0 1 1] -22
[palabra diferencia producto 2 0 1 1] -11
[adicion 2 palabra diferencia 0 1 1] -9
[producto 2 diferencia diferencia 0 1 1] -4
[diferencia diferencia producto 2 0 1 1] -2
[division diferencia producto 2 0 1 1] -1
[division 2 palabra diferencia 0 1 1] -0.181818181818182
[adicion diferencia producto 2 0 1 1] 0
[division 2 palabra adicion 0 1 1] 0.181818181818182
[adicion division producto 2 0 1 1] 1
[division palabra 2 0 palabra 1 1] 1.81818181818182
[adicion adicion producto 2 0 1 1] 2
[adicion division adicion 2 0 1 1] 3
[adicion adicion adicion 2 0 1 1] 4
[diferencia palabra 2 0 palabra 1 1] 9
[division palabra 2 0 adicion 1 1] 10
[palabra adicion producto 2 0 1 1] 11
[adicion 2 palabra adicion 0 1 1] 13
[diferencia diferencia palabra 2 0 1 1] 18
[division diferencia palabra 2 0 1 1] 19
[adicion diferencia palabra 2 0 1 1] 20
[adicion division palabra 2 0 1 1] 21
[adicion adicion palabra 2 0 1 1] 22
[palabra adicion adicion 2 0 1 1] 31
[producto palabra 2 0 adicion 1 1] 40
[palabra diferencia palabra 2 0 1 1] 191
[diferencia palabra palabra 2 0 1 1] 200
[division palabra palabra 2 0 1 1] 201
[adicion palabra palabra 2 0 1 1] 202
[palabra adicion palabra 2 0 1 1] 211
[producto palabra 2 0 palabra 1 1] 220
[palabra palabra palabra 2 0 1 1] 2011




La primera es equivalente a   2 x (0 - 1)1 = 2 x (-1)1 = 2 x -11 = -22

Donde "x" significa multiplicación. Y el que dos números estén juntos NO significa multiplicación, sino que los números deben juntarse para formar otro, por ejemplo -1 junto a 1 da por resultado -11.


Daniel




















PD. El código:


para division :a :b
si :b = 0 [(lanza "porcero "ERR)]
devuelve cociente :a :b
fin

para trata :exp
devuelve atrapa "porcero [ejecuta :exp]
fin

haz "op multiconj clona lista 3 [adicion division producto diferencia palabra]
haz "a des [expon [mismo trata] frase] lista :op [2 0 1 1]
haz "b des [expon [mismo trata] toma lista [0 3 1 2 4 5 6] frase] lista :op [2 0 1 1]
haz "c des [expon [mismo trata] toma lista [0 3 1 4 2 5 6] frase] lista :op [2 0 1 1]
haz "d des [expon [mismo trata] toma lista [0 1 3 4 2 5 6] frase] lista :op [2 0 1 1]

porcada [es ?] organiza [[t1]] primeros agrega expon [ultimos mismo] impon [dispon [mismo [0 +]]] escoge [esnumero t1] escoge [comp esigual lista "ERR t1] (frase :a :b :c :d)