POLIGLOTA.c

/*  PROGRAMAS EN VARIOS LENGUAJES
-------------------------------------------------------------------------

		1.-	imprimir hola mundo.
		2.-	suma de una lista de nUmeros

	J. Rafael RodrIguez Ochoa
-------------------------------------------------------------------------


PROLOG
	1.-	goal
			write("hola mundo"),
			readchar(_).
	2.-	predicates	
			suma(li,i,i)
		clauses
			suma([], Sal, Sal).
			suma([H|T], Ent, Sal):-
				Ent + H = Sal1,
				suma(T, Sal1, Sal).
		goal
			suma([2,3,4],0,Suma),
			write("\nResultado: ",Suma), readchar(_).
TCL/TK
	1.-	button .b -text "hola mundo" \
			-command {exit}
		pack .b
	2.-	set suma 0
		set lista(0) 3
		set lista(1) 5
		set lista(2) 6
		set lista(3) 2
		set lista(4) 4
		for { set k 0 } { $k < $lista(4) }
			{ incr k } {
			set suma [ expr $suma + $lista($k) ]
		}
		puts $suma
TC
	1.-	#include <stdio.h>
		#include <conio.h>
		void main(void)
		{ printf("hola mundo"); getch(); }
	2.-	#include <stdio.h>
		#include <conio.h>
		void main(void)
		{
			int nums[4] = {2,3,4,5};
			int k, suma = 0, n = 3;
			for (k=0; k<=n;k++)
				suma = suma + nums[4];
			printf("\nSuma: %d", suma);
			getch();
		}
PERL
	1.-	#! /usr/bin/perl -w
		print "Hola mundo\n";
	2.-	#! /usr/bin/perl -w
		$suma = 0;
		$nums = (5,3,4,7);
		for ($k=0; $k<=3; $k++)
			$suma = $suma + $nums[$k];
		print "\nSuma = $suma\n";
JAVA
	1.-	System.out.println("hola");
	2.-	import java.util.*;
		import java.io.DataInputStream;
		Public class prog
		{
			public static void main()
			{
				Hashtable a=Hastable();
				Integer an =new Integer(0);
				a.put("1",new Integer(3));
				a.put("2",new Integer(5));
				a.put("3",new Integer(8));
				int suma = 0;
				int k;
				for (k=1; k<=3; k++)
				{
					an=(Integer)a.get(toString(k));
					suma = suma + an.intValue();
				}
				System.out.println("Suma: "+suma);
			}
		}
LISP
	1.-	(print "Hola")
	2.-	(setq suma 0)
		(setq lista '(6 5 4 0))
		(while (> (car lista) 0)
			(setq suma (+ (car lista) suma))
			(setq lista (cdr lista))
		)
		! 'suma= suma