- TI nspire
[TI-nspire] [program] 내 우산은 어디에? - 순열(Permutation)
-
- 2024.07.27 - 01:59 2015.09.28 - 20:35 1025 3
문제 :
비오는 어느 날에 5명이 한 집에 모였습니다. 모임이 끝나고 돌아가려는데 갑자기 정전이 되어 어떤게 자기 우산인지 알 수 없게 되었고, 하는 수 없이 모두 아무 우산을 하나씩 들고 집으로 돌아갔습니다.
이 때 자기 우산을 가져간 사람이 0명일 경우의 수부터 5명인 경우의 수까지 차례대로 구하시오.
Define umb()=
Prgm
:
:Local this_combi
:Local my_umb,n_person
:
:newList(6)→n_person
:
:For d5,1,5
:
: For d4,1,5
: If d5=d4 Then
: Goto pass4
: EndIf
:
: For d3,1,5
: If d5=d3 or d4=d3 Then
: Goto pass3
: EndIf
:
: For d2,1,5
: If d5=d2 or d4=d2 or d3=d2 Then
: Goto pass2
: EndIf
:
: For d1,1,5
: If d5=d1 or d4=d1 or d3=d1 or d2=d1 Then
: Goto pass1
: EndIf
:
:© New Permutation list generated
: 1*{d5,d4,d3,d2,d1}→this_combi
: 0→my_umb
:
:© Count matching person
: For each_d,1,5
: If this_combi[each_d]=each_d Then
: my_umb+1→my_umb
: EndIf
: EndFor
:
: n_person[my_umb+1]+1→n_person[my_umb+1]
:
:© Disp "Test Disp",this_combi,"My Umb=",my_umb
:
: Lbl pass1
: EndFor
:
: Lbl pass2
: EndFor
:
: Lbl pass3
: EndFor
:
: Lbl pass4
: EndFor
:
:EndFor
:
:Disp "zero, one, ...., five = ",n_person
:EndPrgm
umb()
zero, one, ...., five = {44,45,20,10,0,1}
Done
-
25
세상의모든계산기 님의 최근 댓글
감사합니다. 주말 잘 보내세요. 2026 03.06 [fx-570 ES] 과학 상수를 이용한 계산에서 에러 발생 상황 https://kin.naver.com/qna/detail.naver?d1id=11&dirId=1118&docId=492235162&page=1&answerNo=1 vs 2026 03.01 과학상수를 이용한 계산 중 자릿수 한계로 인한 에러 발생 가능성 https://allcalc.org:443/board_calculators/6925#comment_57029 2026 03.01 기본 어댑터 MODEL : AD0301-1202500GB INPUT : 100~240V, 50~60Hz, 0.8A Max OUTPUT : 12.0V, 2.5A, 30.0W ㄴ 측정시 플러그 외경/내경 : 5.5mm / 2mm 2026 02.15 엑셀 파일로 만드니 전체 160~200MB 정도 나옵니다. 읽고 / 저장하는데 한참 걸리네요. 컴 사양을 좀 탈 것 같습니다. -> 엑셀/한셀에서 읽히지만, 구글 스프레드시트에서는 열리지 않네요. 100만 개 단위로 끊어서 20MB 정도로 분할해 저장하는 편이 오히려 속 편할 것 같습니다. -> 이건 구글 스프레드시트에서도 열리긴 하네요. (약간 버퍼링?이 있습니다) 2026 02.10