Menu Close

Sucesión de trazas de dígitos de pi

El fichero Digitos_de_pi.txt contiene el número pi con un millón de decimales; es decir,

   3.1415926535897932384626433832 ... 83996346460422090106105779458151

Las matrices de orden 1×1, 2×2, …, 5×5 formadas por los primeros dígitos de pi son

   ( 3 )  ( 3 1 )  ( 3 1 4 )  ( 3 1 4 1 )  ( 3 1 4 1 5 )
          ( 4 1 )  ( 1 5 9 )  ( 5 9 2 6 )  ( 9 2 6 5 3 )
                   ( 2 6 5 )  ( 5 3 5 8 )  ( 5 8 9 7 9 )
                              ( 9 7 9 3 )  ( 3 2 3 8 4 )
                                           ( 6 2 6 4 3 )

y sus trazas (es decir, sumas de los elementos de la diagonal principal) son 3, 4, 13, 20 y 25, respectivamente.

Definir la función

   trazas :: Int -> IO [Int]

tal que (trazas n) es la lista de las trazas de las matrices de orden 1×1, 2×2, 3×3, …, nxn formadas por los primeros dígitos de pi. Por ejemplo,

   λ> trazas 20
   [3,4,13,20,25,30,19,32,41,59,62,64,58,75,62,60,80,99,78,108]
   λ> ts <- trazas 1000
   λ> maximum ts
   4644
   λ> maximum <$> trazas 1000
   4644

Soluciones

import Data.Char (digitToInt)
import Data.Matrix (fromList, trace)
 
trazas :: Int -> IO [Int]
trazas n = do
  (d:_:ds) <- readFile "Digitos_de_pi.txt"
  let xs = map digitToInt (d:ds)
  return [trace (fromList k k xs) | k <- [1..n]]
Medio

7 soluciones de “Sucesión de trazas de dígitos de pi

  1. eliguivil
    trazasA1 :: Int -> IO [Int]
    trazas :: Int -> IO [Int]
    trazas n = do
      (x:coma:xs) <- readFile "Digitos_de_pi.txt"
      return [trace $ fromList k k (map (read.(:[])) $ take (k^2) (x:xs)::[Int])
             | k <- [1..n]]
  2. albcercid
    import qualified Data.Vector as V
    import Data.Char (digitToInt)
     
    trazas :: Int -> IO [Int]
    trazas x = do
      a <- readFile "Digitos_de_pi.txt"
      let c = (V.fromList (map digitToInt $ '3':(tail $ tail a)))
      return [traza2 n c | n <-  [1..x]]
     
    traza2 :: Int -> V.Vector Int -> Int                    
    traza2 n xs = sum [ xs V.! x | x <- [0,n+1..(n+1)*(n-1)]]
  3. enrnarbej
    import qualified Data.Vector as V
    import Data.Char (digitToInt)
     
    trazas :: Int -> IO [Int]
    trazas n = do
      a <- readFile "Digitos_de_pi.txt"
      let xs = (V.fromList . map (digitToInt) . take (n^2)) ('3' : drop 2 a)
      return [(sum . map (xs V.!)) [0,1+x..x^2-1] | x <- [1..n]]
  4. Juanjo Ortega (juaorture)
    import Data.Matrix
    import Data.Char
     
    trazas :: Int -> IO [Int]
    trazas n = do
      x:y:xs <- readFile "Digitos_de_pi.txt"
      let xs' = map digitToInt (x:xs)
      return [trace (fromList x x xs') | x <- [1..n]]
  5. Fran Cruz
    trazas :: Int -> IO [Int]
    trazas n = do
      (x:_:xs) <- readFile "Digitos_de_pi.txt"
      return $ [sum $ take i $ choose i (x:xs) | i <- [1..n]]
      where choose :: Int -> String -> [Int]
            choose n (x:xs) = read [x] : choose n (drop n xs)
  6. cescarde
    trazas :: Int -> IO [Int]
    trazas n = do
      a <- readFile digPi'
      return [sum $ listaTraza x (take z (map digitToInt a))
             | (x,z) <- zip [1..n] (cuadrados n)]
     
    digPi' :: String
    digPi' = "Digitos_de_pi.txt"
     
    cuadrados :: Int -> [Int]
    cuadrados n = [i*i | i <- [1..n*n]]
     
    listaTraza :: Int -> [Int] -> [Int]
    listaTraza _ [] = []
    listaTraza n (x:xs)
      | n >= length xs = [x]
      | otherwise      = x : listaTraza n (drop n xs)
    • cescarde

      He modificado el archivo Dígitos_de_pi.txt para que aparezca todos los dígitos de pi sin el punto . que separa el 3 del 1 al principio: 3.14159… Es decir: 314159…

Escribe tu solución

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.