R Function to find the probability that no values you guess for a card are correct

Question

Assume that k cards, numbered from 1 to k, are place on a desk, faced down. You are going to guess the numbers on the cards. You would randomly guess the cards by saying num