Re: [問題] 1-9位數不重複印出來 (8th)

[enthos (影斯作業系統)]

※ 引述《mikemagic88 (Mikemagic88)》之銘言：
: 使用者輸入1  印1-9
: 使用者輸入2  印1-98  (11, 22, 33等重複的不印)
: 使用者輸入3  印1-987 (121, 988, 667等有重複的不印)

\ 8th 1-9.8th

: check /(.).*\1/ r:/ ;
: run dup >s check null? if drop . cr else drop drop then ;
: main "num? " . ' run 1 10 gets >n 10 mod n:^ 1- loop ;
main


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 36.228.68.229
※ 文章網址: https://www.ptt.cc/bbs/Programming/M.1480276868.A.959.html
推 bigpigbigpig: 8th 是 Forth 的弟兄嗎？
推 mars90226: 下面那段引言是程式碼？
→ mars90226: 所以是程式碼前面要加:嗎？酷