1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
%%%
% Kakurasu
%%%
\setKVdefault[Kakurasu]{Solution=false,Longueur=6,Largeur=6,Echelle=8mm,Graines=false,Trace=false}
\defKV[Kakurasu]{Graine=\setKV[Kakurasu]{Graines}}
\defKV[Kakurasu]{Traces=\setKV[Kakurasu]{Trace}}
\NewDocumentCommand\Kakurasu{o}{%
\useKVdefault[Kakurasu]%
\setKVdefault[Kakurasu]{#1}%
\BuildKakurasu%
}
\NewDocumentCommand\BuildKakurasu{}{%
\ifluatex
\mplibforcehmode
\begin{mplibcode}
boolean Graines,Solution,Trace;
Graines=\useKV[Kakurasu]{Graines};
Solution=\useKV[Kakurasu]{Solution};
Trace=\useKV[Kakurasu]{Trace};
if Graines:
randomseed:=\useKV[Kakurasu]{Graine};
fi;
numeric Longueur,Largeur;
Longueur=\useKV[Kakurasu]{Longueur};
Largeur=\useKV[Kakurasu]{Largeur};
u:=\useKV[Kakurasu]{Echelle};
pair A[][];%centre des carrés.
boolean Allume[][];
numeric NombreLigne[][],NombreColonne[][];
for k=-1 upto Largeur+1:
for l=-1 upto Longueur+1:
Allume[k][l]=false;
endfor;
endfor;
for k=0 upto Largeur-1:
for l=0 upto Longueur-1:
A[k][l]=u*(l,-k);
trace (unitsquare scaled u) shifted A[k][l];
endfor;
endfor;
for k=0 upto Largeur-1:
for l=0 upto Longueur-1:
if Allume[k][l]:
else:
Allume[k][l]:=true;
m:=uniformdeviate(1);
if m<0.5:
% on ne met pas de case noire
else:
% on met une case noire
NombreLigne[k][l]=l+1;
NombreColonne[k][l]=k+1;
if Solution:
fill (unitsquare scaled 0.9u) shifted (A[k][l]+0.05*u*(1,1));
fi;
fi;
fi;
endfor;
endfor;
% on compte le nombre de chiffres dans les lignes et on les ajoute
for k=0 upto Largeur-1:
Somme:=0;
for l=0 upto Longueur-1:
if unknown NombreLigne[k][l]:
else:
Somme:=Somme+NombreLigne[k][l];
fi;
endfor;
label(TEX(decimal(Somme)),u*(-0.5,-k+0.5));
endfor;
% on compte le nombre de chiffres dans les colonnes et on les ajoute
for k=0 upto Longueur-1:
Somme:=0;
for l=0 upto Largeur-1:
if unknown NombreColonne[l][k]:
else:
Somme:=Somme+NombreColonne[l][k];
fi;
endfor;
label(TEX(decimal(Somme)),u*(k+0.5,1.5));
endfor;
% On affiche les valeurs des cases noires.
drawoptions(withcolor 0.5white);
for k=0 upto Longueur-1:
label(TEX("\footnotesize"&decimal(k+1)),u*(k+0.5,-Largeur+0.5));
endfor;
for k=0 upto Largeur-1:
label(TEX("\footnotesize"&decimal(k+1)),u*(Longueur+0.5,-k+0.5));
endfor;
drawoptions();
if Trace:
\useKV[Kakurasu]{Traces};
fi;
\end{mplibcode}
\fi
}%
|
