RosettaCodeData/Task/Metaprogramming/R/metaprogramming.r

3 lines
58 B
R

'%C%' <- function(n, k) choose(n, k)
5 %C% 2 #Outputs 10.