DouKaku?beta

Comment detail

ICPC2007アジア地区予選A (Nested Flatten)
Squeak Smalltalk で。 
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
| solveA |
solveA := [:n :k :m |
    | circle |
    circle := (1 to: n) asOrderedCollection.
    [circle size > 1] whileTrue: [
        circle removeAt: m.
        m := (m - 1 + k - 1) \\ circle size + 1].
    circle first].

solveA valueWithArguments: #(8 5 3).   "=> 1 "
solveA valueWithArguments: #(100 9999 98).   "=> 93 "
solveA valueWithArguments: #(10000 10000 10000).   "=> 2019 "

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]