Anonymous user
Extract file extension: Difference between revisions
→{{header|Racket}}: Acents
(→{{header|Racket}}: Add Unicode version) |
(→{{header|Racket}}: Acents) |
||
Line 169:
(define (string-suffix/unicode x)
(define v (regexp-match #px"\\.(?:\\p{L}|\\p{N}|\\p{M})+$" x))
(if v
(car v)
Line 221:
"file.resumé" ==> ".resumé"
"café.png" ==> ".png"
"file.resumé" ==> ".resumé"</pre>
=={{header|REXX}}==
| |||