diff options
| author | E7-87-83 <fungcheokyin@gmail.com> | 2021-01-27 15:10:10 +0800 |
|---|---|---|
| committer | E7-87-83 <fungcheokyin@gmail.com> | 2021-01-27 15:10:10 +0800 |
| commit | d63acb54c8156c9ab56284613775f06e7f656c54 (patch) | |
| tree | 04b92a6685a6d2e364dae9e8e99257736f56c941 /challenge-095 | |
| parent | c34bb5d7bd7fce08e8311a0f527ce7fbd69e4dae (diff) | |
| download | perlweeklychallenge-club-d63acb54c8156c9ab56284613775f06e7f656c54.tar.gz perlweeklychallenge-club-d63acb54c8156c9ab56284613775f06e7f656c54.tar.bz2 perlweeklychallenge-club-d63acb54c8156c9ab56284613775f06e7f656c54.zip | |
4 small Smalltalk scripts
Diffstat (limited to 'challenge-095')
| -rw-r--r-- | challenge-095/cheok-yin-fung/smalltalk/ch-1.st | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/challenge-095/cheok-yin-fung/smalltalk/ch-1.st b/challenge-095/cheok-yin-fung/smalltalk/ch-1.st new file mode 100644 index 0000000000..68ea37ecf7 --- /dev/null +++ b/challenge-095/cheok-yin-fung/smalltalk/ch-1.st @@ -0,0 +1,10 @@ +"GNU Smalltalk 3.2.5" +"The Weekly Challenge 096 Task 1 Palindrome Number" +"Usage: gst -S ch-1.st" +"written on 27th Jan 2021" + +myN := stdin nextLine. +(myN reverse = myN) ifTrue: ['1' printNl.] + ifFalse: ['0' printNl.]. + +ObjectMemory quit. |