Data commit
This commit is contained in:
parent
7387c8f97b
commit
cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions
15
Task/Palindrome-detection/GML/palindrome-detection-1.gml
Normal file
15
Task/Palindrome-detection/GML/palindrome-detection-1.gml
Normal file
|
|
@ -0,0 +1,15 @@
|
|||
//Setting a var from an argument passed to the script
|
||||
var str;
|
||||
str = argument0
|
||||
//Takes out all spaces/anything that is not a letter or a number and turns uppercase letters to lowercase
|
||||
str = string_lettersdigits(string_lower(string_replace(str,' ','')));
|
||||
var inv;
|
||||
inv = '';
|
||||
//for loop that reverses the sequence
|
||||
var i;
|
||||
for (i = 0; i < string_length(str); i += 1;)
|
||||
{
|
||||
inv += string_copy(str,string_length(str)-i,1);
|
||||
}
|
||||
//returns true if the sequence is a palindrome else returns false
|
||||
return (str == inv);
|
||||
10
Task/Palindrome-detection/GML/palindrome-detection-2.gml
Normal file
10
Task/Palindrome-detection/GML/palindrome-detection-2.gml
Normal file
|
|
@ -0,0 +1,10 @@
|
|||
//Remove everything except for letters and digits and convert the string to lowercase. source is what will be compared to str.
|
||||
var str = string_lower(string_lettersdigits(string_replace(argument0," ",""))), source = "";
|
||||
|
||||
//Loop through and store each character of str in source.
|
||||
for (var i = string_length(str); i > 0; i--) {
|
||||
source += string_char_at(str,i);
|
||||
}
|
||||
|
||||
//Return if it is a palindrome.
|
||||
return source == str;
|
||||
Loading…
Add table
Add a link
Reference in a new issue