Extract file extension: Difference between revisions
add PicoLisp
Thundergnat (talk | contribs) m (→{{header|Perl 6}}: Combine into a single file for ease of testing) |
(add PicoLisp) |
||
Line 1,156:
</pre>
The builtin get_file_extension() could also be used, however that routine differs from the task description in that "libglfw.so.3.1" => "so", and all results are lowercase even if the input is not.
=={{header|PicoLisp}}==
<lang PicoLisp>(de extension (F)
(and
(fully
'((C)
(or
(>= "Z" C "A")
(>= "z" C "a")
(>= "9" C "0") ) )
(setq F (stem (member "." (chop F)) ".")) )
(pack F) ) )
(println (extension "http://example.com/download.tar.gz"))
(println (extension "CharacterModel.3DS"))
(println (extension ".desktop"))
(println (extension "document"))
(println (extension "document.txt_backup"))
(println (extension "/etc/pam.d/login"))</lang>
{{out}}
<pre>
"gz"
"3DS"
"desktop"
NIL
NIL
NIL
</pre>
=={{header|PowerShell}}==
| |||