0votos

SMS en Haskell

por josejuan hace 6 años

Realmente es la misma solución que JAlonso, pero me ha gustado mucho su solución y quería hacer mi versión (más críptica por supuesto XD XD).

SMS

Escritura de mensajes utilizando un teclado de teléfono móvil.

1
2
3
4
5
6
7
8
9
10
import Data.List (group) 
import Data.Char (ord) 
 
sms = map groupConv.filter ((' '/=).head).group 
 
groupConv (c:cs) = (keyStream c)!!(length cs) -- Porque "ap((.length).(!!).keyStream.head)tail" es demasiado XD XD 
 
keyStream = cycle.(keyMap!!).subtract 48.ord 
 
keyMap = ["-_:0", ".; 1", "abc2", "def3", "ghi4", "jkl5", "mno6", "pqrs7", "tuv8", "wxyz9"] 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.