Mathematica
Mathematica
Datos personales
apache Flex
lunes, 9 de mayo de 2011
PROLOG: Longitud de una lista (versión 2)
13:27 | 
Publicado por
a8a
Este programa calcula la longitud de una lista:
my_length([], L, L).
my_length([_|Xs], N, L):-
N2 is N + 1,
my_length(Xs, N2, L).
Para ejecutar el programa:
?- my_length([a,b,c,d,e], 0, L).
Y el resultado es:
L = 5
Nota: Algunas versiones de Prolog, como WinProlog, tienen la función LENGTH predefinida.
PROLOG: Longitud de una lista
Este programa calcula la longitud de una lista:
my_length([], 0).
my_length([_|Xs], L):-
my_length(Xs, L2),
L is L2 + 1.
Para ejecutar el programa:
?- my_length([a,b,c,d,e], L).
Y el resultado es:
L = 5
Nota: Algunas versiones de Prolog, como WinProlog, tienen la función LENGTH predefinida.
domingo, 8 de mayo de 2011
PROLOG: Busca elemento en una lista
Este programa permite buscar si un elemento esta dentro de una lista de elementos:
my_member(X, [X|_]).
my_member(X, [_|Ys]):-
my_member(X, Ys).
Para ejecutar el programa:
?- my_member(3, [1,2,5,2,1,3,4]).
Y el resultado es:
yes
Para ejecutar el programa:
?- my_member(8, [1,2,5,2,1,3,4]).
Y el resultado es:
no
Nota: Algunas versiones de Prolog, como WinProlog, tienen la función MEMBER predefinida.
PROLOG: Concatena listas
Este programa concatena o une dos listas:
my_append([], Cs, Cs).
my_append([A|As],Bs,[A|Cs]):-
my_append(As, Bs, Cs).
Para ejecutar el programa:
?- my_append([a,b,c], [w,x,y,z], Ls).
Y el resultado es:
Ls = [a,b,c,w,x,y,z]
Nota: Algunas versiones de Prolog, como WinProlog, tienen la función APPEND predefinida.
lunes, 18 de abril de 2011
PROLOG: N primeros numeros de la serie Fibonacci
Este programa calcula los N primeros términos de la serie de Fibonacci:
my_fibonacci(_, _, 0).
my_fibonacci(A, B, N):-
write(A),
write(' '),
N1 is N-1,
C is A + B,
my_fibonacci(B, C, N1).
Para ejecutar el programa:
?- my_fibonacci(0, 1, 10).
Y el resultado es:
0 1 1 2 3 5 8 13 21 34 yes
viernes, 15 de abril de 2011
PROLOG: Factorial (versión 2)
Este programa calcula el factorial de un número:
my_factorial(1,F,F):- !.
my_factorial(N, T, F):-
N2 is N-1,T2 is T * N,
my_factorial(N2, T2, F).
Para ejecutar el programa:
?- my_factorial(5, 1, F).
Y el resultado es:
F = 120
PROLOG: Factorial
Este programa calcula el factorial de un número:
my_factorial(1,1):- !.
my_factorial(N, F):-
N2 is N-1,
my_factorial(N2, F2),
F is F2*N.
Para ejecutar el programa:
?- my_factorial(5, X).
Y el resultado es:
F = 120
Suscribirse a:
Entradas (Atom)
Wolfram Programming Lab
