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

6
Task/Palindrome-detection/MAXScript/palindrome-detection-1.maxscript Normal file
View file

@ -0,0 +1,6 @@
fn isPalindrome s =
(
local reversed = ""
for i in s.count to 1 by -1 do reversed += s[i]
return reversed == s
)

15
Task/Palindrome-detection/MAXScript/palindrome-detection-2.maxscript Normal file
View file

@ -0,0 +1,15 @@
fn isPalindrome_r s =
(
if s.count <= 1 then
(
true
)
else
(
if s[1] != s[s.count] then
(
return false
)
isPalindrome_r (substring s 2 (s.count-2))
)
)

3
Task/Palindrome-detection/MAXScript/palindrome-detection-3.maxscript Normal file
View file

@ -0,0 +1,3 @@
local p = "ingirumimusnocteetconsumimurigni"
format ("'%' is a palindrome? %\n") p (isPalindrome p)
format ("'%' is a palindrome? %\n") p (isPalindrome_r p)