comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Morse - Haskell

  • 0 Respuestas
  • 2046 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Sanko

  • *
  • Underc0der
  • Mensajes: 541
  • Actividad:
    0%
  • Reputación 0
  • ¿Puedes?
    • Ver Perfil
    • Underc0de
« en: Febrero 27, 2014, 06:31:27 pm »
Código: Haskell
  1. module Morse where
  2.         xAbc = No tienes permisos para ver links. Registrate o Entra con tu cuenta (['a'..'z']++['0'..'9']++".,?-!:;()=$@_+~# '")([".- ", "-... ", "-.-. ", "-.. ", ". ","..-. ", "--. ", ".... ", ".. ", ".--- ", "-.- ", ".-.. ", "-- ", "-. ", "--- ", ".--. ", "--.- ", ".-. ", "... ", "- ", "..- ", "...- ",".-- ", "-..- ", "-.-- ", "--.. ", "----- ",".---- ", "..--- ", "...-- ", "....- ", "..... ", "-.... ", "--... ","---.. ", "----. ", ".-.-.- ", "--..-- ", "..--.. ", "-....- ", "-.-.-- ", "---... ", "-.-.-. ", "-.--. ", "-.--.- ", "-...- ", "...-..- ", ".--.-. ","..--.- ", ".-.-. ", ".-... ", "...-.- ", "/ ", ".----. "])
  3.         findPos list elt = [index | (index, e) <- No tienes permisos para ver links. Registrate o Entra con tu cuenta [0..] list, e == elt]
  4.        
  5.         xEnc xs = [No tienes permisos para ver links. Registrate o Entra con tu cuenta (xAbc !! (x !! 0))| x <- [findPos ([No tienes permisos para ver links. Registrate o Entra con tu cuenta (xAbc !! z) | z <- [0..No tienes permisos para ver links. Registrate o Entra con tu cuenta xAbc]]) x | x <- xs]]
  6.         xDec xs = [No tienes permisos para ver links. Registrate o Entra con tu cuenta (xAbc !! (x !! 0))| x <- [findPos ([No tienes permisos para ver links. Registrate o Entra con tu cuenta (xAbc !! z) | z <- [0..No tienes permisos para ver links. Registrate o Entra con tu cuenta xAbc]]) x | x <- xs]]

Output:
Código: No tienes permisos para ver links. Registrate o Entra con tu cuenta
*Morse> xEnc "hola"
[".... ","--- ",".-.. ",".- "]
*Morse> xDec [".... ","--- ",".-.. ",".- "]
"hola"
« Última modificación: Mayo 01, 2014, 09:17:23 am por Expermicid »
Sigueme en Twitter : @Sankosk
Estos nuevos staff no tienen puta idea XD

 

¿Te gustó el post? COMPARTILO!



[Código-Haskell] Recorrer Lista declarada por usuario - JaAViEr

Iniciado por JaAViEr

Respuestas: 0
Vistas: 3479
Último mensaje Julio 17, 2011, 10:57:46 am
por JaAViEr
[Código-Haskell] Números Pares & Impares - JaAViEr

Iniciado por JaAViEr

Respuestas: 1
Vistas: 1913
Último mensaje Julio 17, 2011, 03:34:36 am
por LucaSthefano
[Datos] Funciones para Haskell internas - JaAViEr

Iniciado por JaAViEr

Respuestas: 0
Vistas: 1597
Último mensaje Julio 17, 2011, 06:37:29 am
por JaAViEr
[Código-Haskell] Cuenta caracteres de un archivo - JaAViEr

Iniciado por JaAViEr

Respuestas: 0
Vistas: 1390
Último mensaje Julio 17, 2011, 03:33:33 am
por JaAViEr
[Código-Haskell] Típico Strlen - JaAViEr

Iniciado por JaAViEr

Respuestas: 0
Vistas: 1375
Último mensaje Julio 17, 2011, 03:34:11 am
por JaAViEr