/* Gruppe 1 /* Termin 4 - Programm 1 */ */
tmpColl = .list~new
DO i = 1 to 5
    tmpColl ~append(random(10))
END
SAY "Can you guess a number from 0 to 10 that is in the list?"
PARSE PULL input
userInputSet = .Set~of(input)
intersectionset = userInputSet~intersection(tmpColl)
IF intersectionset~isEmpty THEN DO
    SAY "Your number is not in the list"
END
    ELSE DO
    SAY "Your number is in the list!"
END
SAY "The numbers were:"
DO i OVER tmpColl
    SAY i
END