File extension is in extensions list: Difference between revisions

→‎{{header|Arturo}}: Restored latest Arturo solution.
(Undo revision 324498 by Drkameleon (talk) AWK solution taken out by mistake when editing Arturo solution.)
(→‎{{header|Arturo}}: Restored latest Arturo solution.)
Line 186:
 
=={{header|Arturo}}==
<lang arturorebol>fileExtensions: #(map ["zip" "rar" "7z" "gz" "archive" "A##")] => ["." ++ lower]
hasExtension?: @(function [file){][
in? extract.extension lower file
fileExtensions
]
files: #(["MyData.a##" "MyData.tar.Gz" "MyData.gzip" "MyData.7z.backup" "MyData..." "MyData")]
 
loop files {'file ->
<lang arturo>fileExtensions: #("zip" "rar" "7z" "gz" "archive" "A##")
print & + " print [file "=> hasExtension?: " + [hasExtension? &file]</lang>
 
hasExtension: @(file){
lowercased: map fileExtensions => lowercase
contains lowercased [lowercase|replace [pathExtension file] "." ""]
}
 
files: #("MyData.a##" "MyData.tar.Gz" "MyData.gzip" "MyData.7z.backup" "MyData..." "MyData")
 
loop files {
print & + " => hasExtension: " + [hasExtension &]
}</lang>
 
{{out}}
 
<pre>MyData.a## => hasExtension?: true
MyData.tar.Gz => hasExtension?: true
MyData.gzip => hasExtension?: false
MyData.7z.backup => hasExtension?: false
MyData... => hasExtension?: false
MyData => hasExtension?: false </pre>
 
=={{header|AWK}}==
9,482

edits