我也要玩这个 线上编译器: 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://webptt.com/cn.aspx?n=bbs/Programming/M.1488500696.A.FF3.html