aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

tasks a-s

Browse source
This commit is contained in:
Ingy döt Net 2013-04-10 23:57:08 -07:00
parent 47bf37c096
commit b83f433714
12433 changed files with 156208 additions and 123 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Palindrome-detection/Smalltalk/palindrome-detection-1.st Normal file
View file

@ -0,0 +1,4 @@
isPalindrome := [:aString |
str := (aString select: [:chr| chr isAlphaNumeric]) collect: [:chr | chr asLowercase].
str = str reversed.
].

14
Task/Palindrome-detection/Smalltalk/palindrome-detection-2.st Normal file
View file

@ -0,0 +1,14 @@
String extend [
palindro [ "Non-recursive"
^ self = (self reverse)
]
palindroR [ "Recursive"
(self size) <= 1 ifTrue: [ ^true ]
ifFalse: [ |o i f| o := self asOrderedCollection.
i := o removeFirst.
f := o removeLast.
i = f ifTrue: [ ^ (o asString) palindroR ]
ifFalse: [ ^false ]
]
]
].

4
Task/Palindrome-detection/Smalltalk/palindrome-detection-3.st Normal file
View file

@ -0,0 +1,4 @@
('hello' palindro) printNl.
('hello' palindroR) printNl.
('ingirumimusnocteetconsumimurigni' palindro) printNl.
('ingirumimusnocteetconsumimurigni' palindroR) printNl.

2
Task/Palindrome-detection/Smalltalk/palindrome-detection-4.st Normal file
View file

@ -0,0 +1,2 @@
SequenceableCollection>>isPalindrome
^self reverse = self