Prolog – Um gerador de dominós

% Data: 3/05/2008
:- use_module(library(clpfd)).
:- dynamic todas_pecas/1.
init:- todas_pecas(L), assert(todas_pecas(L)), nl, write(L), length(L,X),nl,
write(‘Total of Pairs: ‘), write(X), nl, write(‘Pairs OK’).
some_pieces(N, Init_Piece ) :-
depth_search(N, [ Init_Piece ], Solution), %% initial piece
reverse(Solution,Inv_Sol), nl,
w_pieces(Inv_Sol), nl, write(‘Total of pieces :: ‘), write(N).
many_sets :- findall(Solution, depth_search(1, [ (7,8,9) ] , Solution), L),
length(L,X),
write(L),nl,
write(‘Total of sets :: ‘), write(X).
/*
Condição de Parada, [...]

Ler o post por completo »

Convertendo UTF-8 para ISO8859

Caso seu texto não tenha muitos caracteres complicados. o comando iconv do Linux funciona bem:

cat entrada.txt | iconv -f UTF-8 -t ISO8859-1 -o saida.txt
iconv -f UTF-8   -t ISO8859-1 -o saida.txt   entrada.txt

Esta dica necessária aos usuários de LaTeX, o qual é direto para aos padrão ISO.
Caso o comando acima não funcione bem, o [...]

Ler o post por completo »

Comandos básicos de impressora

Como sempre me perco na parte básica:

Ver conteúdo na impressora xxxx, no caso o nome é: hp_640:

claudio@goedel:~/pesquisa$ lpq -P hp_640
hp_640 está pronto e imprimindo
Rank Proprietário Trabalho Arquivo(s) [...]

Ler o post por completo »