Ingresando datos con Haskell

Question

Back Story: En un intento de comprender mejor a Haskell y la programación funcional, me he dado algunas asignaciones. Mi primera tarea es crear un programa que pueda examinar un conjunto de datos (un conjunto de números, palabras en un blog, etc.), buscar patrones o repeticiones, agruparlos e informarlos.

Suena bastante fácil. :)

Pregunta: Me gustaría que el programa comience creando una variable de lista a partir de los datos en un archivo de texto. Estoy familiarizado con la función readFile, pero me preguntaba si había una forma más elegante de ingresar datos.

Por ejemplo, me gustaría permitir que el usuario escriba algo como esto en la línea de comandos para cargar el programa y el conjunto de datos.

./haskellprogram textfile.txt

¿Hay una función que permitirá a esto?

Answer 1

import System.Environment 

main :: IO() 
main = do 
    args <- getArgs 
    -- args is a list of arguments 
    if null args 
    then putStrLn "usage: ./haskellprogram textfile.txt" 
    else do contents <- readFile $ head args 
      putStrLn $ doSomething contents 

doSomething :: String -> String 
doSomething = reverse 

Eso debería ser suficiente para comenzar. Ahora reemplace reverse con algo más valioso :)

Hablando de analizar algunos datos de entrada, es posible que considere dividir sus datos en lines o words uso de las funciones respectivas de preludio.

Answer 2

Está buscando la función getArgs.

Answer 3

matriz sutil, nunca puedo dejar de mencionar mi favorito cuando era primera aprendiendo Haskell, interact:

module Main where 
main = interact doSomething 

doSomething :: String -> String 
doSomething xs = reverse xs 

que luego usarlo como cat textfile.txt | ./haskellprogram | grep otto o lo que sea. También hay una variante en Data.Text que quizás conozcas, y algunas otras en otras bibliotecas string-ish.

Answer 4

Jugando con el relativamente nuevo ReadArgs package:

{-# LANGUAGE ScopedTypeVariables #-} 

import ReadArgs (readArgs) 

main = do 
    (fname :: String, foo :: Int) <- readArgs 
    putStrLn fname 

Probando ...

$ runhaskell args.hs blahblah 3 
blahblah 

Una irritación con readArgs es que no funciona si sólo tiene un único argumento. Hmmm...

Una vez que tenga el nombre de archivo deseado como String, puede usar readFile como de costumbre.