info
Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
[Jeux] Jeux Técleux Octobre 2011
19 views
Skip to first unread message
Gerard Sookahet
Oct 25, 2011, 12:33:48 PM10/25/11
to
Bonsoir,
Le jeux técleux de ce mois porte sur le calendrier :
Ecrire une procédure qui prend en entrée le nom d'un mois et l'année,
et qui renvoie le nombre de jours contenus dans ce mois.
Bon téclage.
GS
Le jeux técleux de ce mois porte sur le calendrier :
Ecrire une procédure qui prend en entrée le nom d'un mois et l'année,
et qui renvoie le nombre de jours contenus dans ce mois.
Bon téclage.
GS
Kroc
Oct 26, 2011, 3:16:26 AM10/26/11
to
Salut Gérard,
Prims !
proc jourdansmois {m a} {
return [clock format [clock add [clock scan "1 $m $a" -format "%d
%B %Y" -locale fr] 1 month -1 day] -format %d]
}
Sans catch parce que j'aime la version oneliner. ;]
--
David Zolli
Prims !
proc jourdansmois {m a} {
return [clock format [clock add [clock scan "1 $m $a" -format "%d
%B %Y" -locale fr] 1 month -1 day] -format %d]
}
Sans catch parce que j'aime la version oneliner. ;]
--
David Zolli
Gerard Sookahet
Oct 27, 2011, 1:17:32 PM10/27/11
to
Bonsoir,
Une version très classique. Notez le switch avec plusieurs cas :
proc JourDansMois {m a} {
switch $m {
4 - 6 - 9 - 11 {return 30}
2 {if {$a%4 == 0 && $a%100 == 0 || $a%400 == 0} then {return 29}
else {return 28}}
default {return 31}
}
}
@Kroc : un chef d'oeuvre de compacité ta version. La commande clock
est quasiment un langage de programmation à elle toute seule.
GS
Une version très classique. Notez le switch avec plusieurs cas :
proc JourDansMois {m a} {
switch $m {
4 - 6 - 9 - 11 {return 30}
2 {if {$a%4 == 0 && $a%100 == 0 || $a%400 == 0} then {return 29}
else {return 28}}
default {return 31}
}
}
@Kroc : un chef d'oeuvre de compacité ta version. La commande clock
est quasiment un langage de programmation à elle toute seule.
GS
Vincent Verdon
Oct 28, 2011, 9:25:37 AM10/28/11
to
Bonjour G�rard,
Le 27/10/2011 19:17, Gerard Sookahet a �crit :
> Bonsoir,
>
> Une version tr�s classique. Notez le switch avec plusieurs cas :
Merci !
Amicalement, Vincent Verdon
Le 27/10/2011 19:17, Gerard Sookahet a �crit :
> Bonsoir,
>
> Une version tr�s classique. Notez le switch avec plusieurs cas :
>
> proc JourDansMois {m a} {
> switch $m {
> 4 - 6 - 9 - 11 {return 30}
Effectivement, j'ai appris quelque chose aujourd'hui.
> proc JourDansMois {m a} {
> switch $m {
> 4 - 6 - 9 - 11 {return 30}
Merci !
Amicalement, Vincent Verdon
Kroc
Nov 4, 2011, 6:37:14 AM11/4/11
to
On 27 oct, 18:17, Gerard Sookahet <ger...@gmail.com> wrote :
Effectivement, il y a de quoi faire pas mal de trucs marrants avec
[clock] :)
--
David Zolli
> @Kroc : un chef d'oeuvre de compacité ta version. La commande clock
> est quasiment un langage de programmation à elle toute seule.
Salut Gérard,
> est quasiment un langage de programmation à elle toute seule.
Effectivement, il y a de quoi faire pas mal de trucs marrants avec
[clock] :)
--
David Zolli
Xavier Garreau
Nov 25, 2011, 3:15:01 AM11/25/11
to
Polom les amis du Tcl,
J'ai un bon mois de retard mais j'ai trouvé un truc rigolo alors je
partage :)
proc jm {m a} {
return [clock format [clock scan "$a-[expr $m+1]-0"] -format "%d"]
}
Molop,
Xavier
J'ai un bon mois de retard mais j'ai trouvé un truc rigolo alors je
partage :)
proc jm {m a} {
return [clock format [clock scan "$a-[expr $m+1]-0"] -format "%d"]
}
Molop,
Xavier
Kroc
Nov 25, 2011, 4:41:11 AM11/25/11
to
On 25 nov, 09:15, Xavier Garreau <xgarr...@gmail.com> wrote:
Salut Xav,
> clock scan "$a-[expr $m+1]-0"
C'est excellent ça, tu l'as trouvé comment ?
--
David Zolli
Salut Xav,
> clock scan "$a-[expr $m+1]-0"
--
David Zolli
0 new messages