Le Programmateur

Je présente ici le client d'un logiciel de chat en C. Il utilise biensûr les sockets et nécessite un serveur décrit dans cet article pour fonctionner.

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <netinet/in.h>
#include <pthread.h> 
 
#define NPORT 10000
#define CONNEXION 0
#define MESSAGE 1
#define DISCONNECT 2
 
int identifiant;
char * surnom;
struct sockaddr_in serveur_adr;
int socketConnexionServeur;

Ce programme décrit tout d'abord quelques objets nécessaires (listes, arbres) et quelques fonctions associées, avant de s'attaquer à la définition des termes. Une fois les termes définis, je définis alors plusieurs fonctions liées au filtrage et à la substitution sur les termes. Bon courage !

(* Les Listes *) 
type 'a liste=Nil | Cons of 'a * 'a liste;;
let l1=Cons( 1,Cons( 2,Cons( 3,Cons( 4,Nil )  )  )  ) ;;
let l2=Cons( 5,Cons( 4,Cons( 3,Cons( 2,Nil )  )  )  ) ;;
let rec ( estTriee:'a liste -> bool  ) =function 
	Nil->true 
	|Cons( a,Nil ) ->true 
	|Cons( a,Cons( b,l )  ) ->( a<b ) && estTriee( Cons( b,l )  ) 
;;
estTriee( l1 ) ;;
estTriee( l2 ) ;;

<?php
//put this file in the base directory of the website
echo "<?xml version=\"1.0\" encoding=\"UTF-8\"?>
<urlset xmlns=\"http://www.google.com/schemas/sitemap/0.84\">";
$webSite = 'http://www.'.$_SERVER['HTTP_HOST'];//the website's name
$directories= array ( //write here the directories to parse
		'.' , 
		'images' , 
		'section1'
);

Aujourd'hui, un petit programme en JavaScript avec une partie du système solaire en rotation. Vous pouvez voir le résultat ici. Maintenant, côté code, on commence d'abord par définir les paramètres du système :

tab = new Array();
// de la forme ('Nom',a,b,periode,XCentrePlanete,YCentrePlanete,Numero de la planete autour de laquelle elle tourne)
tab[0] = new Array('soleil',0,0,1,0);
tab[1] = new Array('mercure',58,59,88,0);
 
tab[2] = new Array('venus',109,108,225,0);
tab[3] = new Array('terre',150,149,365,0);
 
tab[4] = new Array('mars',228,227,686,0);
tab[5] = new Array('phobos',90,90,150,4);
tab[6] = new Array('deimos',30,20,120,4);
tab[7] = new Array('lune',30,30,28,3);
var t=0;

Un petit programme sur les nombres de Hamming et les séries alternées.

(display "1. Preludio")
(define 
  (remove-factors n p)
  (if (zero? (remainder n p))
      (remove-factors (quotient n p) p)
      n))

Tout est expliqué dans le titre et commenté dans le code !

(display "1) Calcul de surfaces simples")
 
(define pi (* 4 (atan 1)))
pi
(define (simple-surface r f) (f (* r r)))

Je présente ici un exemple de définition et d'utilisation de fonctions récursives en Scheme.

(display "Somme des chiffres")
(newline)
(define (digit-sum nb) 
  (if (< nb 10)
      nb
      (+ (digit-sum (quotient nb 10)) (remainder nb 10))))
(display "Essai avec 198")
(digit-sum 198)

Voici un exemple d'I/O en Prolog :

% Exemple 8 : utilisation de read/1 et write/1
addition:- write('Entrez un nombre :'),read(A),write('Entrez un autre nombre:'),read(B), Z is A+B, nl, write(A), write('+'),write(B),write('='), write(Z).
 
% Exemple 9 : utilisation de read/2 , write/2, close et open
addition:- open('Fichier.txt',append,Stream),write(Stream,'3'),
write(Stream, '+'), write(Stream, '4'),
write(Stream, '='), write(Stream,'7 '), close(Stream).

Voici quelques règles toutes simples, pour comprendre l'idée du Prolog.

convient_physiquement(X,Y):- homme(Y,T,C,A) , recherche(X,T,C,A).
convient_physiquement(X,Y):- femme(Y,T,C,A) , recherche(X,T,C,A).
 
ont_memes_gouts(X,Y):- gout(X,M,L,S) , gout(Y,M,L,S).