Acciones

Diferencia entre revisiones de «Ejercicios del proyecto Euler 2010»

De Software Libre para la Enseñanza y el Aprendizaje de las Matemáticas (2010-11)

Línea 11: Línea 11:
 
* [[Ejercicio 48: Encuentra los últimos 10 dígitos de la serie, 1^1 + 2^2 + 3^3 + ... + 1000^1000]].
 
* [[Ejercicio 48: Encuentra los últimos 10 dígitos de la serie, 1^1 + 2^2 + 3^3 + ... + 1000^1000]].
 
* [[Ejercicio 29: ¿Cuántos términos distintos hay en la secuencia generada por a^b cuando 2<=a,b<=100?]].
 
* [[Ejercicio 29: ¿Cuántos términos distintos hay en la secuencia generada por a^b cuando 2<=a,b<=100?]].
 
 
 
  Solución:
 
  (%i1)terminos(n):= block([lista],
 
lista:[],
 
(for a from 2 thru n do
 
  (for b from 2 thru n do
 
                        (if (member(a^b,lista))
 
then (lista)
 
else (lista: cons(a^b, lista)))))
 
(length (lista)))$
 

Revisión del 00:02 6 may 2010