File extension is in extensions list: Difference between revisions

Content added Content deleted

Inline

@@ Line 186: / Line 186: @@
 =={{header|Arturo}}==
+<lang rebol>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 [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
+<pre>MyData.a## => hasExtension?: true
-MyData.tar.Gz => hasExtension: true
+MyData.tar.Gz => hasExtension?: true
-MyData.gzip => hasExtension: false
+MyData.gzip => hasExtension?: false
-MyData.7z.backup => hasExtension: false
+MyData.7z.backup => hasExtension?: false
-MyData... => hasExtension: false
+MyData... => hasExtension?: false
-MyData => hasExtension: false</pre>
+MyData => hasExtension?: false </pre>
 =={{header|AWK}}==