Alla faccia di discoteche, pub, bar......

[diego72]

Ogni tanto????

Guarda, il prossimo con cui si cimenta è questo:
http://www.smalltalk.org/

[fedex]

Guarda, il prossimo con cui si cimenta è questo:
http://www.smalltalk.org/

Perchè mi hanno obbligato in università.

Devo realizzare un progetto sull'analisi dei grafi in LISP e in Prolog.
Se fosse per me scapperei sia da LISP sia da Prolog e comunque da ogni linguaggio che non sia imperativo e ad alto livello

[djordj]

Guarda, il prossimo con cui si cimenta è questo:
http://www.smalltalk.org/

Uhm...

"Smalltalk is a computer language designed specifically for a wide range of humans rather than a narrow group of computer specialists."

Si presenta bene

[djordj]

Perchè mi hanno obbligato in università.

Devo realizzare un progetto sull'analisi dei grafi in LISP e in Prolog.
Se fosse per me scapperei sia da LISP sia da Prolog e comunque da ogni linguaggio che non sia imperativo e ad alto livello

LISP?

()(((((((((((())))))))))))((((((((((((((((((())))++=)))((()) ))

[diego72]

LISP?

()(((((((((((())))))))))))((((((((((((((((((())))++=)))((()) ))

Non va.
Devi mettere tutto tra parentesi.

[kabodie]

LISP?

()(((((((((((())))))))))))((((((((((((((((((())))++=)))((()) ))

vuoi mettere con questo?
http://it.wikipedia.org/wiki/Brainfuck

[Tubular]

Svaccatori che non siete altro.

[djordj]

vuoi mettere con questo?
http://it.wikipedia.org/wiki/Brainfuck

Ah sì, questo l'avevo già visto!

Potremmo iscrivere Fedex a questo concorso
http://www.de.ioccc.org/main.html

Uno dei vincitori dell'edizione 2005

typedef unsigned char B;B*x[]={
#include "dict.h"
0};typedef struct L{B*s;struct L*n;}L;
L*h[128],*l[128],*s[128],Z[sizeof x/sizeof*x],*F=Z;int c[256],m,a=1;
int k(B*q){int g=0;B*p=q;while(*p)g|=!c[*p++]--;return g-1&p-q;}
void u(B*p){while(*p)c[*p++]++;}
void S(int N,int r,int t,L*W){L*w;int i,n;
 for(n=r<N?r:N;n>0;n--)for(w=n==N?W:h[n];s[t]=w;u(w->s),w=w->n)if(k(w->s))
  if(n==r){if(t==m-1)for(i=a=0;i<=t;i++)printf("%s%c",s[i]->s,i<t?' ':'\n');}
  else if(t<m-1)S(n,r-n,t+1,s[t]=w);}
int main(int C,B**A){int i=0,g,n=0;B*p;while(--C)for(p=*++A;n<127&&*p;)c[*p++]++,n++;
 for(;p=x[i++];u(p))if(g=k(p))(l[g]=*(l[g]?&l[g]->n:&h[g])=F++)->s=p;
 while(++m<128)S(127,n,0,h[127]);
 return a;}

[fedex]

prolog è ganzo, va che bello per parsare una stringa!

readch(MapData):-
	open(MapData, read, InStream),
	get_char(InStream, Ch),
	readch(InStream, Ch, [], [], map).
readch(InStream, '.', List, Buff, Operator):-
	string_to_list(Str, Buff),
	string_to_atom(Str, AtomStr),
	append([AtomStr], List, UnList),
	get_char(InStream, NextCh),
	readch(InStream, NextCh, UnList, [], Operator).
readch(InStream, end_of_file, Tsil, _, map):-
	reverse(Tsil, StradList),
	close(InStream),
	writeBase(StradList).
readch(_, end_of_file, List, _, journey):-
	reverse(List, Tsil),
	assert(stages(Tsil)).
readch(InStream, Ch, List, Buff, Operator):-
	char_type(LCh, to_lower(Ch)),
	get_char(InStream, NextCh),
	flatten([Buff|LCh], FlatBuff),
	readch(InStream, NextCh, List, FlatBuff, Operator).

[Matteo C.]

Io ieri sono andato a giocare a bowling e poi a mezzanotte a casa...ovviamente senza toccare alcool (prima di tutto perchè non mi piace affatto, secondo perchè guidavo)