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

Data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 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