/* EXERCICE 1 */

/* Je rajoute une étape pour rentrer les données. Cette étape n'était pas à inscrire 
sur votre copie. */
DATA concours;
	INPUT nom :$9. espece $ annee note;
CARDS;
Gerard    Canard  2010 9
Colombine Carpe   2011 5
Roger     Canard  2010 7
Gerard    Canard  2011 8.5
Gerard    Canard  2012 8
Colombine Carpe   2010 4
Roger     Canard  2011 7
;RUN;


PROC SORT DATA=concours;
	BY nom;
RUN;

DATA concours2;
	SET concours;
	BY nom;
	IF first.nom THEN  DO ;
		n=1;
		s_note=note;
	END;
	ELSE DO ;
		n+1;
		s_note+note;
	END;
	IF last.nom THEN DO ;
		moy=s_note/n;
		OUTPUT;
	END;
	KEEP nom espece moy;
RUN;

/* EXERCICE 2 */

data mer;
	input V1 $60. / V2 $60. / V3 $60. /V4 $60.;
cards;
Homme libre, toujours tu chériras la mer! 
La mer est ton miroir, tu contemples ton âme 
Dans le déroulement infini de sa lame, 
Et ton esprit n’est pas un gouffre moins amer.
Tu te plais à plonger au sein de ton image,
Tu l’embrasses des yeux et des bras, et ton coeur 
Se distrait quelquefois de sa propre rumeur 
Au bruit de cette plainte indomptable et sauvage.
Vous êtes tous les deux ténébreux et discrets: 
Homme, nul n’a sondé le fond de tes abîmes, 
O mer, nul ne connaît tes richesses intimes, 
Tant vous êtes jaloux de garder vos secrets!
Et cependant voilà des siècles innombrables 
Que vous vous combattez sans pitié ni remords, 
Tellement vous aimez le carnage et la mort, 
O lutteurs éternels, ô frères implacables!
;run;



PROC PRINT DATA=mer;
RUN;

DATA merbis;
	SET mer;
	X1=TRANWRD(V1,'Homme','Femme');
	X2=TRANWRD(V2,'Homme','Femme');
	X3=V3;
	X4=TRANWRD(V4,'frères','sœurs');
	DROP V1 V2 V3 V4;
RUN;

PROC PRINT DATA=merbis;
RUN;