KTUG마당은 KTUG를 방문하는 모든 이용자가 대화를 나누고 소식을 전하는 곳입니다.
- 로그인 없이 자유롭게 글을 읽고 쓸 수 있는 철학은 처음과 같이 계속됩니다.
- Team Blog의 글을 이곳 게시판의 "정보글"로 모았습니다. Team blog는 기고자가 올린 글에 질문을 받는 부담을 줄이기 위하여 댓글을 허용하지 않았습니다. 그러나 이곳 게시판으로 모으면서 댓글을 달 수 있습니다. 게시물을 작성하실 때 댓글을 원하지 않으시면 댓글을 허용하시지 않으시기를 바랍니다. 또한 불필요한 소모성 댓글을 달지 않도록 주의하여 주시기를 바랍니다.
- TeX과 관련된 질문이나 답변은 QnA 마당을 이용하십시오. TeX과 관련된 질문은 지웁니다
- MathJax를 이용한 수식조판을 사용하실 수 있습니다. 여기를 참조하세요.
- 스팸 글을 막기 위하여 짧은 시간 내에 다시 글이 등록되는 IP를 막거나, 광고 글을 막기 위하여 금지어로 .com, .net 등을 설정하고 있습니다. 다소간의 불편함이 있으시더라도 양해 바랍니다.
- 금지어에서 stackexchange, stackoverflow, ctan, overleaf, , github, google.com, gmail.com, .org, .io, sil.org, wiki.com, tistory.com등은 해제하였습니다.
- 사용하는 편집기는 CKeditor입니다. 편집기에서 [enter]를 누르면 <p> 태그가 들어가고, 문단으로 생각하고 한줄을 비웁니다. 글줄만 바꾸려면 shift-enter 를 누르시면 <BR>가 들어가므로 용도에 맞게 나누어 쓸 수 있습니다.
자유글 [luatex] 행운의 번호는?
2018.11.23 18:59
\documentclass{article}
\usepackage{xparse, expl3}
\usepackage{luacode}
\usepackage{tikz}
\newcommand\DrawBalls{
\luaexec{
balls = {}
while \#balls < 6 do
used = false
ball = math.random(1, 45)
for i=1, \#balls do
if balls[i] == ball then
used = true
end
end
if not used then
table. insert(balls, ball) % 금칙어에 걸려서 띄어쓰기
end
end
table.sort(balls)
for i=1, \#balls do
tex.print("\\LottoBall{", balls[i], "}")
end
}
}
\newcommand*\LottoBall[1]{%
\tikz\node[%
circle,shade,draw=white,thin,inner sep=1pt,%
ball color=red,%
text width=1em,%
font=\sffamily,text badly centered,white%
]{#1};}%
\ExplSyntaxOn
\NewDocumentCommand \lotto { O{5} }
{
\int_step_inline:nnnn {1}{1}{#1}
{
\DrawBalls\\
}
}
\ExplSyntaxOff
\setlength\parindent{0pt}
\begin{document}
\lotto[10]
\end{document}
댓글 13
-
작나
2018.11.24 07:53
-
yihoze
2018.11.25 06:33
계속 들여다 보니 좀 이해됩니다. 뽑은 수가 이미 있으면, 그걸 버리는 게 아니라 그 인덱스를 뽑은 수로 삼는 거군요. 그래서 딱 여섯 번만 뽑으면 끝나게 되고요. 반복 범위를 40부터 45까지 잡아서 random 범위를 하나씩 늘려가는 게 절묘하군요. 고맙습니다.
-
작나
2018.11.28 15:56
네, 그렇습니다. Floyd 랜덤 샘플링 알고리즘의 핵심은 "함수 randint()의 호출의 횟수를 정확히 표본 갯수 만큼만 하자." 입니다. 그렇다면 저 알고리즘으로 만들어진 표본이 확률적으로도 아무런 문제가 없는가? 인데, 그게 수학적으로도 그렇답니다.
-
likesam
2018.11.24 11:37
yihoze님과 작나님중 어느분의 code에 따른 신탁을 믿고 로또를 사러 가면 됩니까?
-
yihoze
2018.11.25 06:29
작나님 코드가 더 영험해 보이지 않습니까?
-
Progress
2018.11.24 14:49
24번 포함될 때까지 돌려야겠습니다 -
yihoze
2018.11.25 06:29
24는 왜요?
-
Progress
2018.11.25 15:53
별거 없슴다. 24일이라... (어차피 로또잖아요)
-
noname
2018.11.28 11:41
expl3 버전:
위의 작나님께서 보여주신 코드를 expl3로 옮긴 것입니다. 원래 코드가 예사롭지 않은 데다가 텍신의 강림까지 기대해볼 수 있지 않을까요?
expl3의 슈도랜덤넘버제네레이터는 pdftex/luatex의 경우 metapost에 기반한 \pdfuniformdeviate 또는 \uniformdeviate (luatex) 프리미티브에 의한 것이라고 합니다. xetex 엔진으로는 expl3의 이 함수들을 처리할 수 없으므로 여기서는 pgfmath의 random 함수가 사용하도록 했습니다. 어느 것이 더 *영험*할지는...
\NewDocumentCommand \DrawBalls { } { \clist_clear:N \l_tmpa_clist \int_step_inline:nnn { 40 } { 45 } { \sys_if_engine_xetex:TF { \pgfmathparse{ random (##1) } \tl_set:No \l_tmpa_tl { \pgfmathresult } } { \tl_set:Nx \l_tmpa_tl { \int_rand:n { ##1 } } } \clist_if_in:NVTF \l_tmpa_clist \l_tmpa_tl { \clist_put_right:Nn \l_tmpa_clist { ##1 } } { \clist_put_right:NV \l_tmpa_clist \l_tmpa_tl } } \clist_sort:Nn \l_tmpa_clist { \int_compare:nTF { ##1 > ##2 } { \sort_return_swapped: } { \sort_return_same: } } \clist_map_inline:Nn \l_tmpa_clist { \LottoBall { ##1 } \space } }
-
yihoze
2018.11.28 11:57
\clist_sort:Nn이 실제 어떻게 작동할지 궁금합니다. 한 번만 비교해서 뒤바꾸는 것으로는 충분하지 않을 텐데요. \sort_return_swapped:가 더 이상 호출되지 않을 때까지 비교를 계속 반복할까요?
-
noname
2018.11.28 12:32
급하게 대강 훑어본 바로는 리스트가 길면 쪼개서 각각의 블럭을 quick sort하고 블럭들을 merge sort하는 식으로 되는 것처럼 보이는데요. 아무튼 swapped나 same은 사용자 입장에서는 단순히 순서를 주는 것이라고 이해해도 되지 싶습니다.
-
yihoze
2018.11.28 17:17
\int_rand:nn을 이용하여 공 색도 무작위로 바뀌게 해봤습니다.
\NewDocumentCommand \GetBallColor { }
{
\tl_set:Nx \l_R_tl { \int_rand:nn {0}{255} }
\tl_set:Nx \l_G_tl { \int_rand:nn {0}{255} }
\tl_set:Nx \l_B_tl { \int_rand:nn {0}{255} }
\definecolor{ball}{RGB}{\l_R_tl, \l_G_tl, \l_B_tl}
}
-
noname
2018.11.28 18:17
일부 색상에 따라 숫자가 잘 안 보이는 경우가 있지만... 예쁘네요. :)
XeLaTeX에서도 되도록 조금 수정해봤습니다.
\clist_set:Nn \l_tmpb_clist { R, G, B } \NewDocumentCommand \GetBallColor { } { \sys_if_engine_xetex:TF { \clist_map_inline:Nn \l_tmpb_clist { \pgfmathparse { random ( 0, 255 ) } \tl_set:co { l_ ##1 _tl } { \pgfmathresult } } } { \clist_map_inline:Nn \l_tmpb_clist { \tl_set:cx { l_ ##1 _tl } { \int_rand:nn {0}{255} } } } \definecolor{ball}{RGB}{\l_R_tl, \l_G_tl, \l_B_tl} }
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
1076 | 영어 문제집 졸작 [10] | 잉명 | 2023.04.26 | 505 |
1075 | 그림 그리는 오픈소스웨어 ipe | 하늘연 | 2023.04.22 | 295 |
1074 | ChoF님 축하하니다. [7] | 작나 | 2023.04.21 | 471 |
1073 | new pythagorean theorem proof [1] | 김퍼프 | 2023.04.16 | 424 |
1072 | 파워셸에서 [9] | yihoze | 2023.03.30 | 268 |
1071 | typst 마크업 기반 조판 시스템 [5] | 작나 | 2023.03.25 | 349 |
1070 | texlive 2023, basic(small) 설치: 그다지 안 짧은 메모 [9] | noname | 2023.03.22 | 1536 |
1069 | TeXLive 2023의 oblivoir [1] | noname | 2023.03.22 | 404 |
1068 | TeX 꿈나무(?) 동아리를 소개합니다. [12] | 이여현 | 2023.03.17 | 681 |
1067 | enqjftlr vozlwl [2] | noname | 2023.03.01 | 339 |
1066 | 님의침묵 | noname | 2023.03.01 | 206 |
1065 | 기미독립선언문 [7] | noname | 2023.02.26 | 329 |
1064 | 제주어와 제주서체 (2) [3] | noname | 2023.02.20 | 278 |
1063 | 터잡기 [5] | yihoze | 2023.02.17 | 343 |
1062 | chat gpt에게 LaTeX에서 한글을 사용할 수 있는 방법을 알려달라고 물어봤습니다. [4] | 에드 | 2023.02.04 | 674 |
1061 | MiKTeX 인스톨 가이드를 완성해주세요 [29] | noname | 2023.01.27 | 1243 |
1060 | 한/글 사용자를 위한 VSCode 단축키 [3] | Kriss | 2023.01.25 | 370 |
1059 | 초간단 VS Code 입문서 [2] | yihoze | 2023.01.16 | 443 |
1058 | VS Code에서 수식 미리보기 [19] | yihoze | 2023.01.13 | 825 |
1057 | 인자 파일을 여는 VS Code 확장 프로그램 [14] | yihoze | 2023.01.12 | 234 |
\DrawBalls에 사용된 루아 코드가 1부터 45까지의 수 중에서 6개를 중복 없이 뽑은 후, 그 6개를 오름차순으로 정렬하여 출력하는 것 같은데요, 모집단의 크기가 45가 아니라 좀 큰 수이고 표본의 크기가 모집단의 크기와 거의 같으면 실행시간이 좀 오래 걸릴것 같고, 랜덤 함수가 잘못 작성된 경우면 실행이 끝나지 않을 수도 있답니다. 자세한 설명은 https://bit.ly/2Qm4jIa 에 있고, 그 설명에 따라 약간 수정해 봤습니다.