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 12: Línea 12:
 
* [[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?]].
 
* [[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]].
 
  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)))$
 
  (%01)done(9183)
 
  Nota: No me aparece el enlace al grabar el enunciado del ejercicio, por ello coloco aquí la solución.
 

Revisión del 00:09 6 may 2010