ChallengeR #6

Votre dernière mission consistait à coder le tricheur parfait dans mon petit tournois d’algos pour un dilemme du prisonnier répété.

Et le gagnant est @AlekVladNevski qui nous propose une fonction (ici un peu reprise par mes soins) qui va modifier la matrice des paiements :

msp  = function(p, o, n = 2000) {
 z <- if(match.call()[[1]]=='f1') c(5, 0) else c(0, 5)
 m <- rep(z, each = 4)
 dim(m) <- rep(2,3)
 assign("m", m, envir = parent.frame(n=1))
 return(FALSE)
}

Challenger #6

Votre mission, si vous l’acceptez consiste à coder une fonction nbchar qui compte le nombre de caractères du corps d’une autre fonction R, sans tenir compte des espaces, des indentations et des retours à la ligne. Par exemple, avec :

area = function(radius) {
 radius * pi^2
}

Vous devriez vérifier que :

> nbchar(area)
[1] 11
>

C’est la fonction pour laquelle nbchar(nbchar) sera le plus petit qui remportera ce challenge. Vous avez jusqu'au vendredi 26 janvier ; soumettez vos réponses ci-dessous :

Votre @username sur Twitter :


Coller votre code ici :


Validez pour enregistrer votre réponse.

Aucun commentaire:

Enregistrer un commentaire

Cheval de fer, acte II

La première partie est ici. Quand John Kennedy s’y était installé au tout début des années 1790, Manchester n’était encore qu’un gros bour...