/* Topic des codeurs couche-tard [1] */

samυncle · Le 27/06/2010, à 04:34

.

\o/ hdp

Dernière modification par samuncle (Le 27/06/2010, à 04:35)

grim7reaper · Le 27/06/2010, à 06:23

Bon, finalement j'ai du revoir ma gestion des opérateurs '[' et ']' mais ça fonctionne maintenant (même le code de la division ).

Alors, comme promis il tient en 42 lignes (et pas plus de 80 caractères par ligne ). Bon du coup je n'ai pas pu commenter la table des symboles (enfin bon, go wikipédia quoi ).
Interpréteur testé et approuvé avec les codes du "Hello World!", de l'addition, de la multiplication, de la division, de la recherche du min entre 2 entiers et de la mise en majuscule.

#!/usr/bin/perl -w
use strict;      # Auteur : grim7reaper && Licence : WTFPL

my $t = 30000;   # Taille de la memoire (en octet).
my @mem = (0)x$t;# Memoire.
my $code = "";   # Code source.
my $dp = 0;      # Data Pointer.
my $ip = 0;      # Instruction Pointer.
my %l2r = ();    # Couples (position du [, position du ] correspondant).
my @left = ();   # Liste des positions des crochets ouvrants.
my %symbols =    # Tables des symboles (http://fr.wikipedia.org/wiki/Brainfuck).
(
    ">" => sub{ $dp++; die "Segmentation Fault\n"  if $dp > $t; },
    "<" => sub{ $dp--; die "Segmentation Fault\n"  if $dp < 0;  },
    "+" => sub{ $mem[$dp]++; $mem[$dp] = 0   if $mem[$dp] > 255; },
    "-" => sub{ $mem[$dp]--; $mem[$dp] = 255 if $mem[$dp] < 0;   },
    "." => sub{ print chr($mem[$dp]);    },
    "," => sub{ $mem[$dp] = ord(getc()); },
    "[" => sub{ $ip = $l2r{$ip - 1} + 1 if $mem[$dp] == 0;   },
    "]" => sub{ my %r2l = reverse %l2r; $ip = $r2l{$ip - 1}; }
);

open (SRC, $ARGV[0]) || die "Can't open $ARGV[0] : $!"; # Ouverture du source.
while (<SRC>) { chomp($code .= $_); }  # Concatenation du code en une ligne.
$code =~ s/[^\+\-\.\[\],<>]//g;        # Suppression des caracteres invalides.

my @code = split(//, $code);              # Decoupage du code en symboles
for(my $i = 0; $i < length($code); $i++)  # Analyse symbole par symbole
{
    push(@left, $i) if $code[$i] eq '[';  # Si c'est crochet ouvrant on empile.
    if($code[$i] eq ']')                  # Si c'est crochet fermant on depile.
    {
        die "Unmatched ]\n" unless @left; # reste des ] && pile vide = pas bon.
        $l2r{pop @left} = $i;             # Creation des couple pour les sauts.
    }
} die "Unmatched [\n" if @left;      # code termine && pile pas vide = pas bon.

while($ip < @code)          # Boucle d'interpretation du code
{ 
    my $c = $code[$ip++];   # Lecture de l'instruction.
    $symbols{$c}->();       # Decodage et execution de l'instruction.
}

L'interpreteur gère les commentaires dans le sources, le code multiligne, les erreurs d'accès mémoire et la validité syntaxique (correspondance '[' et ']').
Le Perl c'est beau, le Perl c'est bon (mangez-en), le Perl c'est la vie .

Bon, l'accumulation de fatigue me fait dire des conneries alors je vais aller me pieuter z_z.

BN World !

Edit : clarification et optimisation du code.

Dernière modification par grim7reaper (Le 27/06/2010, à 14:57)

gnuuat · Le 27/06/2010, à 09:13

Segfault, c'est pas un signal système plutôt ?

Compteur du TdCCT · Le 27/06/2010, à 09:42

Scores totaux, depuis le début :

1) 621    samuncle
2) 550    nesthib
3) 545    Pylade
4) 498+5  grim7reaper ** bonus +5 pour avoir répondu à ce post : ./viewtopic.php?pid=3486252#p3486252 **
5) 416    mathieuI
6) 279    cm-t
7) 243    helly
8) 173    gnuuat
9) 121    ǤƦƯƝƬ
10) 119    tshirtman
11) 93    petifrancais
12) 91    \\Ouranos//
13) 42    pierguiard
14) 37    ilagas
14) 37    Lagierl
16) 33    Kanor
17) 30    keny
18) 25    GentooUser
19) 19    Le Rouge
20) 18    Ph3nix_
21) 14    kouskous
22) 13    xapantu
23) 12    stratoboy
23) 12    sailing
25) 11    edge_one
26) 10    CROWD
26) 10    Toineo
26) 10    NutMotion
29) 8    Mornagest
30) 7    Vista
31) 6    Zeibux
31) 6    Р'tite G☢gole :mad:
33) 5    timsy
34) 4    danychou56
34) 4    Neros
34) 4    Biaise
37) 3    gulp
38) 1    ceric
38) 1    pfriedK
38) 1    geenux

Compteur du TdCCT · Le 27/06/2010, à 09:42

Scores totaux, depuis le début :

1) 260    Pylade
2) 226    samuncle
3) 223    nesthib
4) 220+5  grim7reaper ** bonus +5 pour avoir répondu à ce post : ./viewtopic.php?pid=3486252#p3486252 **
5) 181    mathieuI
6) 110    helly
7) 96    cm-t
8) 76    gnuuat
9) 56    \\Ouranos//
10) 44    tshirtman
11) 30    Lagierl
12) 23    petifrancais
13) 20    keny
14) 19    Kanor
15) 17    pierguiard
16) 15    ǤƦƯƝƬ
17) 11    edge_one
18) 10    NutMotion
19) 8    xapantu
20) 7    Vista
21) 5    sailing
21) 5    timsy
23) 4    Toineo
24) 3    gulp
24) 3    Р'tite G☢gole :mad:
26) 2    kouskous
26) 2    Mornagest

tshirtman · Le 27/06/2010, à 10:22

mouais, j'ai pus faire tomber le mien à 32 lignes d'un autre coté ^^. j'ai donc la place de commenter tous ls symboles, si j'ai pas la flemme

#!/usr/bin/env python
# author: tshirtman, licence: WTFPL
from sys import stdin, stdout, argv
from exceptions import BaseException

code = open(argv[1]).read()[:-1]
s = []; b = {}
for i,j in enumerate(code):
    if j == '[': s.append(i);
    if j == ']':
        try:
            b[s.pop()] = i 
        except:
            raise BaseException('unmatched ]')
if len(s) > 0:
    raise BaseException('unmatched [')
pc = 0; p = 0; t = [0] * 1000

while pc != len(code):
    i = code[pc]
    if i == '>': p += 1
    elif i == '<': p -= 1
    elif i == '+': t[p] += 1; t[p] %= 256 
    elif i == '-': t[p] -= 1; t[p] %= 256 
    elif i == '.': stdout.write(chr(t[p]))
    elif i == ',': stdin.read(size=1)
    elif i == '[':
        if t[p] == 0: pc = b[pc]
    elif i == ']': pc = filter(lambda i: b[i] == pc, b.keys())[0]-1
    else: raise BaseException('unknown command', i, ' pos ', pc) 
    pc += 1
stdout.flush()

Pylades · Le 27/06/2010, à 10:23

gnuuat a écrit :

Segfault, c'est pas un signal système plutôt ?

Segfault, c’est ce qui est affiché (avec le C, en tous cas) lorsque ton programme se fait tuer par un SIGSEGV (11). Ce signal est délivré, pour ce que j’en sais, lorsque qu’un usage illicite est fait de la mémoire (par exemple quand tu essaies d’écrire avec un NULL).

Sinon, oh oui, le perl c’est bon.
(En tous cas ça a l’air.)

Mais avec le compteur et USF en python, je vais essayer d’abord d’apprendre python un peu utile. D’ailleurs (ceci est un message à l’attention du n@nyl@nd), j’ai rendu le compteur indépendant du fichier qu’il utilise (même s’il subsiste un léger bug, le remarquerez-vous ?), et maintenant je vais essayer de lui faire gérer les temps UTC, mais j’aurai peut-être besoin de plus de précisions.

nany · Le 27/06/2010, à 10:28

Bonjour chez vous.

Pylade a écrit :

le n@nyl@nd a écrit :
Ouskeu gé parlé d’espaces insécables ?
Oops, j’ai failli oublier : GMTXXX
Justement, quand tu t’es mis à parler en transparent.
[…]

Ah oui, là !
Ben, justement, c’est pour parler le langage du compteur donc il vaut mieux éviter les insécables.

Pylades · Le 27/06/2010, à 10:42

Mais ça vient d’où le délire qui consisterait à dire que le compteur n’aime pas les espaces insécable ?
Si c’est la mésaventure d’helly, c’est parfaitement normal : elle avait mis une espace insécable dans le code, et forcément, là ça a causé des problèmes.
Mais sinon, ne vous privez pas, le compteur aime ça.

tshirtman · Le 27/06/2010, à 10:46

arf mon implémentation python a un problème, la lecture d'un caractère à la getch n'existe pas en python, la solution la plus propre semble être ça… http://code.activestate.com/recipes/134892/

bon, je vais prendre ma douche et essayer de faire du code utile après…

sinon il me semble que le compteur gère déjà les temps UTC… mais c'est peut être buggé… vu la fréquence à laquelle cette fonction sert… et vue l'emmerdement à comprendre du bousin (utc, pas le compteur).

nany · Le 27/06/2010, à 10:55

@Pylade : tu as modifié le code du compteur ? Parce que je vois ça :

            if 'GMT' in str(post):
                try:
                    utc = int(str(post).split('GMT')[-1].split(' ')[0].split('<')[0])
                except:
                    print entry.name,'-> no good GMT!'

Donc je préfère mettre une espace ordinaire.

Pylades · Le 27/06/2010, à 11:07

Oui. Les seuls caractères pouvant suivre une déclaration de la forme GMT±X sont l’espace ordinaire le chevron ouvrant. Mais il y peut y avoir une espace insécable ailleurs dans la phrase, ou alors je n’ai pas bien compris… Mais c’est vrai que cette ligne est un peu bancale, je vais voir si je peux l’améliorer.

Pylades · Le 27/06/2010, à 11:23

Bug corrigé (pas celui du GMT, celui que j’avais introduit et qui est présent depuis deux jours).

Je vais voir le GMT.

helly · Le 27/06/2010, à 11:27

bon, je vais prendre ma douche et essayer de faire du code utile après…

tman va pas faire plop, il va faire plouf !
Le traître

tshirtman · Le 27/06/2010, à 11:47

non non, je suis hydrophile…

mais pfff ste galaire de faire un shampoing, à chaque fois je me dis que je vais en faire plus souvent pour que ce soit moins galère, et une semaine après même topo >_<

Pylades · Le 27/06/2010, à 12:31

Tiens, les pythoneux, comment vous faites pour ne récupérer que les caractères numérique au début de la chaîne ?

Exemple :

>>> '123b4rag tf 42!'.super_method()
'123'

xapantu · Le 27/06/2010, à 12:45

>>> '123b4rag tf 42!'[0:3]
'123'

edit : et comme d'habitude, j'ai rien compris, désolé Pylade

Dernière modification par xapantu (Le 27/06/2010, à 12:46)

xapantu · Le 27/06/2010, à 12:55

>>>impor re
>>> re.search('^[1-9]+', '123b4rag tf 42!').group(0)
'123'

Là, c'est bon

tshirtman · Le 27/06/2010, à 13:11

ouais pas mal avec une regex

gnuuat · Le 27/06/2010, à 13:15

tshirtman a écrit :

non non, je suis hydrophile…
mais pfff ste galaire de faire un shampoing, à chaque fois je me dis que je vais en faire plus souvent pour que ce soit moins galère, et une semaine après même topo >_<

Suis-je le seul à savoir de quoi tu parles (plop vs plouf) ?

grim7reaper · Le 27/06/2010, à 13:33

Hello World !

gnuuat a écrit :

Segfault, c'est pas un signal système plutôt ?

Si, mais là c'est un clin d'œil au C entre autres. J'envoie ce signal quand il tape en dehors de sa zone mémoire.

tshirtman a écrit :

mouais, j'ai pus faire tomber le mien à 32 lignes d'un autre coté ^^. j'ai donc la place de commenter tous ls symboles, si j'ai pas la flemme

D'un autre côté, ton interpréteur plante sur tout les codes brainfuck que je lui donne ><.
Il ne gère quasiment rien (il plante s'il y a des commentaires, il plante si le code est multiligne, il plante sur l'opérateur ',' , il signale des '[' unmatched quand il n'y en a pas (bon ça, c'est dû au multiligne il me semble)). Je m'attendais à mieux
C'est bien de faire court, mais faire un truc qui fonctionne c'est mieux .
Donc 32 ligne OK, mais tu est loin d'égaler la souplesse de mes 42 lignes .

Bon maintenant j'attends une version Python correcte, ou celle d'\\Ouranos// en Ruby .

Pylade a écrit :

Sinon, oh oui, le perl c’est bon.
(En tous cas ça a l’air.)

Bien sûr que le Perl c'est bon.
[mode=fan]
C'est un langage merveilleux (un descendant du C si l'on peut dire, donc c'est forcément bon).
[/mode]
Et puis, le Perl c'est le seul langage où tu peut faire du golf .

Edit : j'avais vraiment la tête dans le cul hier . Je viens d'améiorer l'implémentation de l'operateur ','

"," => sub{ my $in = <STDIN>; $mem[$dp] = ord(substr($in, 0, 1)); },

devient

"," => sub{ $mem[$dp] = ord(getc()); },

Ce qui donne des comportements plus agréables pour les programmes comme la division, la multiplication ou la mise en majuscule .

Dernière modification par grim7reaper (Le 27/06/2010, à 13:52)

tshirtman · Le 27/06/2010, à 16:09

gnuuat a écrit :

tshirtman a écrit :
non non, je suis hydrophile…
mais pfff ste galaire de faire un shampoing, à chaque fois je me dis que je vais en faire plus souvent pour que ce soit moins galère, et une semaine après même topo >_<
Suis-je le seul à savoir de quoi tu parles (plop vs plouf) ?

non je ne pense pas

@grim: la plupart des choses dont tu parles sont simples à ajouter, j'ai juste mieux à faire, je verrais si ça change , ce qui m'embète le plus c'est le getch() j'aurais bien aimé n'utiliser que des choses incluses de base dans le langage… (et pas trop lourde, j'ai bien regardé pour utiliser curses, mais WTF si j'ai pas d'autres choix que ça…).

grim7reaper · Le 27/06/2010, à 16:21

tshirtman a écrit :

@grim: la plupart des choses dont tu parles sont simples à ajouter, j'ai juste mieux à faire, je verrais si ça change , ce qui m'embète le plus c'est le getch() j'aurais bien aimé n'utiliser que des choses incluses de base dans le langage… (et pas trop lourde, j'ai bien regardé pour utiliser curses, mais WTF si j'ai pas d'autres choix que ça…).

Oui c'est simple , je n'ai pas dis le contraire (ça se fait en une ou deux lignes).
Pour le getch(), Python n'a pas ça en standard O_o" ?
Ça craint un peu quand même pour un langage haut niveau…

Dernière modification par grim7reaper (Le 27/06/2010, à 17:14)

Pylades · Le 27/06/2010, à 21:27

Hey !
Vous me conseillez quoi comme taille maximale des lignes pour les commentaires ?
72 ? 79 ? 80 ?

grim7reaper · Le 27/06/2010, à 21:38

Moi j'utilise 80 comme pour le code.
Justification: aucune (enfin si : le coup du 80 revient souvent, doit y avoir un truc historique derrière).

Dernière modification par grim7reaper (Le 27/06/2010, à 21:40)

Ubuntu-fr

Navigation

Liens de recherche

Annonce

#601 Le 27/06/2010, à 04:34

Re : /* Topic des codeurs couche-tard [1] */

#602 Le 27/06/2010, à 06:23

Re : /* Topic des codeurs couche-tard [1] */

#603 Le 27/06/2010, à 09:13

Re : /* Topic des codeurs couche-tard [1] */

#604 Le 27/06/2010, à 09:42

Re : /* Topic des codeurs couche-tard [1] */

#605 Le 27/06/2010, à 09:42

Re : /* Topic des codeurs couche-tard [1] */

#606 Le 27/06/2010, à 10:22

Re : /* Topic des codeurs couche-tard [1] */

#607 Le 27/06/2010, à 10:23

Re : /* Topic des codeurs couche-tard [1] */

#608 Le 27/06/2010, à 10:28

Re : /* Topic des codeurs couche-tard [1] */

#609 Le 27/06/2010, à 10:42

Re : /* Topic des codeurs couche-tard [1] */

#610 Le 27/06/2010, à 10:46

Re : /* Topic des codeurs couche-tard [1] */

#611 Le 27/06/2010, à 10:55

Re : /* Topic des codeurs couche-tard [1] */

#612 Le 27/06/2010, à 11:07

Re : /* Topic des codeurs couche-tard [1] */

#613 Le 27/06/2010, à 11:23

Re : /* Topic des codeurs couche-tard [1] */

#614 Le 27/06/2010, à 11:27

Re : /* Topic des codeurs couche-tard [1] */

#615 Le 27/06/2010, à 11:47

Re : /* Topic des codeurs couche-tard [1] */

#616 Le 27/06/2010, à 12:31

Re : /* Topic des codeurs couche-tard [1] */

#617 Le 27/06/2010, à 12:45

Re : /* Topic des codeurs couche-tard [1] */

#618 Le 27/06/2010, à 12:55

Re : /* Topic des codeurs couche-tard [1] */

#619 Le 27/06/2010, à 13:11

Re : /* Topic des codeurs couche-tard [1] */

#620 Le 27/06/2010, à 13:15

Re : /* Topic des codeurs couche-tard [1] */

#621 Le 27/06/2010, à 13:33

Re : /* Topic des codeurs couche-tard [1] */

#622 Le 27/06/2010, à 16:09

Re : /* Topic des codeurs couche-tard [1] */

#623 Le 27/06/2010, à 16:21

Re : /* Topic des codeurs couche-tard [1] */

#624 Le 27/06/2010, à 21:27

Re : /* Topic des codeurs couche-tard [1] */

#625 Le 27/06/2010, à 21:38

Re : /* Topic des codeurs couche-tard [1] */

Pied de page des forums