Re: [問題] 1-9位數不重複印出來(SmallTalk)
我也要玩這個
線上編譯器: https://goo.gl/nXJ17m
"Find the unique number."
"An unique number is define as: A number with no repeated digit"
"i.e. 121, 988, 677... has a repeated repeated"
Integer extend[
"Finds the unique number under 10 raise to self"
unique[
"Shows the range"
Transcript show: 'Parse 1-'.
(10 raisedTo: self) printNl.
"Parse from 1 to the range"
1 to: (10 raisedTo: self) -1 do:[ :i | i parseUnique. ].
]
parseUnique[
"Creates array for checking if a digit repeated"
|array check|
check := self.
array := Array new: 10.
1 to: 10 do: [:i | array at: i put: 0].
"Checks the number by shifting 10"
[check > 0] whileTrue: [
|index|
index := check \\ 10 +1.
check := check // 10.
"If array at the digit is not 0, omit this number"
((array at: index) > 0 ) ifTrue:[ ^self ].
"If array at the digit is 0, set it to 1 to indicate used"
array at: index put: 1.
].
"This number is unique"
self printNl.
]
]
1 unique.
2 unique.
3 unique.
4 unique.
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 73.71.217.229
※ 文章網址: https://www.ptt.cc/bbs/Programming/M.1488500696.A.FF3.html
推
03/03 11:16, , 1F
03/03 11:16, 1F
Programming 近期熱門文章
PTT數位生活區 即時熱門文章
