Extract file extension: Difference between revisions
Content added Content deleted
(Added Algol 68 and Algol W) |
No edit summary |
||
| Line 383: | Line 383: | ||
café.png → ".png" |
café.png → ".png" |
||
file.resumé → "" (Standard: ".resumé") |
file.resumé → "" (Standard: ".resumé") |
||
</pre> |
|||
=={{header|Haskell}}== |
|||
<lang Haskell>module FileExtension |
|||
where |
|||
myextension :: String -> String |
|||
myextension s |
|||
|not $ elem '.' s = "" |
|||
|elem '/' extension || elem '_' extension = "" |
|||
|otherwise = '.' : extension |
|||
where |
|||
extension = reverse ( takeWhile ( /= '.' ) $ reverse s ) |
|||
</lang> |
|||
{{out}} |
|||
<pre>map myextension ["picture.jpg" , "http://mywebsite.com/picture/image.png" , "myuniquefile.longextension" , |
|||
"IAmAFileWithoutExtension" , "/path/to.my/file" , "file.odd_one"] |
|||
[".jpg",".png",".longextension","","",""] |
|||
</pre> |
</pre> |
||