RosettaCodeData/Task/Inverted-syntax/R/inverted-syntax-3.r

4 lines
89 B
R

`%if%` <- function(expr, cond) if(cond) expr
print("Wow! Lucky Guess!") %if% (guess==6)