作者enthos (影斯作业系统)
看板Programming
标题Re: [问题] 1-9位数不重复印出来 (8th)
时间Mon Nov 28 04:01:04 2016
※ 引述《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://webptt.com/cn.aspx?n=bbs/Programming/M.1480276868.A.959.html
1F：推 bigpigbigpig: 8th 是 Forth 的弟兄吗？ 111.251.224.77 11/28 05:35
2F：推 mars90226: 下面那段引言是程式码？118.163.127.250 11/28 09:22
3F：→ mars90226: 所以是程式码前面要加:吗？酷118.163.127.250 11/28 09:22