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.