통계적 검증 (TI-Nspire Basic)

Define bb(f,nr)=
Func
:Local fi,fj,rs,meet
:
:
:meet:=0
:For fi,1,f,1
:  randSamp(blist,9,nr)→rs
:
:  For fj,2,9,1
:    If rs[1]=rs[fj] Then
:      meet:=meet+1
:      Exit
:    EndIf
:  EndFor
:EndFor
:
:Return approx(((meet)/(f))*100)
:EndFunc

ㄴ blist 는 1부터 9까지 숫자가 각 24개씩 들어있는 리스트임.