Kane a écrit
Si tu es vraiment masochiste, essaye le LISP.
Cyp a écrit
C'est bien ici le thread des diplodocus de l'informatique ?
Je prépare un mod pour Crysis programmé en Cobol, si des dévs veulent me rejoindre => mp.
Kane a écrit
Si tu es vraiment masochiste, essaye le LISP.
gwendal a écritCyp a écrit
C'est bien ici le thread des diplodocus de l'informatique ?
Je prépare un mod pour Crysis programmé en Cobol, si des dévs veulent me rejoindre => mp.
Si tu as besoin, je peux me joindre à l'équipe, je touche ma race en Logo
pour poly.spirale :taille :angle
si :taille>205 [stop]
avance :taille
droite :angle
poly.spirale somme :taille 5 somme :angle 0.12
end
JiHeM a écrit
Logo ! \o/
Quand je pense qu'on faisait des trucs comme ça en CE2 sur les TO7 de l'école primaire...
moi aussi.
Je viens de prendre un coup de vieux...
Je propose qu'on monte un club. On se réunirait pour faire de l'assembleur, jouer à Bomb Jack et disserter sur les Amiga qui pownent grave les Atari. On s'appellerait les Lone Gunmen.
Ellendhel a écritJiHeM a écrit
Logo ! \o/
Quand je pense qu'on faisait des trucs comme ça en CE2 sur les TO7 de l'école primaire...
\o/ et sur MO5 aussi.
Thomson powa §
JiHeM a écrit
...
Et j'ai fait du GAP (RPG) III donc à ce niveau je pense que je suis blindé...
JustineF a écrit
\o/ Moi en CM2, c'était ça
Ellendhel a écritJustineF a écrit
\o/ Moi en CM2, c'était ça
Mais qu'est ce que c'est que cette merde ?
C'est bien ce que j'imagine ; le programme contrôllait le bidule, qui traçait directement sur du papier ?
'tin, progrès de folie §
Kane a écrit
Note : Charger tout le fichier en mémoire n'est pas une solution élégante.
-- ***********************************************************************
-- patchs a full string
-- ***********************************************************************
remplace :: Dico -> B.ByteString -> B.ByteString
remplace d s | s == B.empty = B.empty
| otherwise = prefixe `B.append` suite
where
-- how to look for the first 'z'
(prefixe,reste) = B.span (/='z') s
-- if there's a key
suite = case intro `B.isPrefixOf` reste of
True -> case Map.lookup cle d of
Just res -> res `B.append` (remplace d $ B.drop 7 reste)
Nothing -> pasbon
False -> pasbon
cle = B.take 5 $ B.drop 2 reste
pasbon = if reste == B.empty then B.empty else 'z' `B.cons` (remplace d $ (B.tail reste))
intro = B.pack "zz"
do
f <- B.readFile fic
B.writeFile fic2 (remplace dico f)
Se créer un compte pour déterrer un sujet vieux de plus de deux ans pour proposer une solution qui contient encore le problème de départ pour un problème résolu.
C'est puissant.
Viro a écrit
Haskell, va lire les données par bloc de 64k pour toi, dans cet example.
Akshell a écritViro a écrit
Haskell, va lire les données par bloc de 64k pour toi, dans cet example.
oulà déjà quand ça fait plus de 5 lignes ça me fatigue, alors au delà...
Hahaha, Cyp tu as tout faux !
Def a écritBah je suis le spécialiste de la résurrection des vieux threads. Au passage, je ne répondais pas au problème de départ, mais à un point précis.
Se créer un compte pour déterrer un sujet vieux de plus de deux ans pour proposer une solution qui contient encore le problème de départ pour un problème résolu.
C'est puissant.
Vous devez être identifié pour participer à ce topic.