diff options
| author | 冯昶 <fengchang@novel-supertv.com> | 2021-02-22 17:45:14 +0800 |
|---|---|---|
| committer | 冯昶 <fengchang@novel-supertv.com> | 2021-02-22 17:45:14 +0800 |
| commit | 572994875f5972916deabeb84f3648ac4640107b (patch) | |
| tree | 1458cfc22c7b80dd025415f73e7c808814bb0db7 /challenge-042 | |
| parent | 7021a6ee78be5c0a1bc1a30db583004a88fc7a15 (diff) | |
| parent | 2c26164a5a90aa14a19078d845769d3ec9fbb5ae (diff) | |
| download | perlweeklychallenge-club-572994875f5972916deabeb84f3648ac4640107b.tar.gz perlweeklychallenge-club-572994875f5972916deabeb84f3648ac4640107b.tar.bz2 perlweeklychallenge-club-572994875f5972916deabeb84f3648ac4640107b.zip | |
Merge remote-tracking branch 'upstream/master'
Diffstat (limited to 'challenge-042')
| -rw-r--r-- | challenge-042/cheok-yin-fung/smalltalk/ch-1.st | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/challenge-042/cheok-yin-fung/smalltalk/ch-1.st b/challenge-042/cheok-yin-fung/smalltalk/ch-1.st new file mode 100644 index 0000000000..9ccc9ff5ad --- /dev/null +++ b/challenge-042/cheok-yin-fung/smalltalk/ch-1.st @@ -0,0 +1,28 @@ +"GNU Smalltalk 3.2.5" +"The Weekly Challenge 042 Task 1" +"Octal Number System" +"Usage: gst -S ch-1.st" +"written on 28th Jan 2021" + +Number extend [ + octal [ + |t w eightpow| + t := self. + eightpow := 8. + w := ''. + [t // eightpow > 0] whileTrue: [ + w := ( (t \\ eightpow) displayString, w ). + t := t // 8. + eightpow := eightpow * 8. + ]. + w := ( (t \\ eightpow) displayString, w ). + t := t // 8. + ^w + ] +] + +0 to: 50 do: [:i | + ('decimal: ', i displayString, ' octal: ', i octal )printNl. +]. + +ObjectMemory quit. |