Le secret de l'Avent 2019 jour 26
Posted: 26 Dec 2019, 10:55
? wrote:Tu devrais tentermain(32,59,64,45)
.
Méfie-toi des imitations :
- Code: Select all
Send("CONNECT RGB
8→N
0→D
1→S
suite(255/cosh(X-N),X,1,N→L₁
N→dim(L₂
0L₂+N-1→L₂
While non(getKey
max(0,L₂-1→L₂
N-1→L₂(D+1
For(I,0,N-1
Send("SET RGB eval(I+N) eval(L₁(1+L₂(I+1))) 0 0
End
D+S→D
S(1-2(D=N-1 ou non(D→S
End
Send("DISCONNECT RGB