Extract file extension: Difference between revisions

← Older edit Newer edit →

Content deleted Content added

Inline

@@ Line 932: / Line 932: @@
 =={{header|Racket}}==
+<lang Racket>
-{{update|Racket|The format of a suffix has been clarified, and the test-cases have been replaced with new ones.}}
+#lang racket
-<lang Racket>#lang racket
 ;; Note that for a real implementation, Racket has a
@@ Line 941: / Line 940: @@
 ;; and handles path values so might run into problems with unicode
 ;; string inputs.
 (define (string-extension x)
   (cadr (regexp-match #px"(\\.[[:alnum:]]+|)$" x)))
+(define examples '("http://example.com/download.tar.gz"
+                   "CharacterModel.3DS"
+                   ".desktop"
+                   "document"
+                   "document.txt_backup"
+                   "/etc/pam.d/login"))
-(define (string-extension/unicode x)
-  (cadr (regexp-match #px"(\\.(?:\\p{L}|\\p{N}|\\p{M})+|)$" x)))
-(define examples '("picture.jpg"
-                   "http://mywebsite.com/picture/image.png"
-                   "myuniquefile.longextension"
-                   "IAmAFileWithoutExtension"
-                   "/path/to.my/file"
-                   "file.odd_one"
-                   ""
-                   ;; Extra, with unicode
-                   "café.png"
-                   "file.resumé"
-                   ;; with unicode combining characters
-                   "cafe\u0301.png"
-                   "file.resume\u0301"))
-(printf "Official task:\n")
 (for ([x (in-list examples)])
-  (printf "~s ==> ~s\n" x (string-extension x)))
+  (printf "~a | ~a\n" (~a x #:width 34) (~a (string-extension x) #:width 8)))
+ </lang>
-(printf "\nWith unicode support:\n")
-(for ([x (in-list examples)])
-  (printf "~s ==> ~s\n" x (string-extension/unicode x)))
-</lang>
 {{out}}
-<pre>Official task:
+<pre>
+http://example.com/download.tar.gz | .gz
-  "picture.jpg" ==> ".jpg"
+CharacterModel.3DS                 | .3DS
-  "http://mywebsite.com/picture/image.png" ==> ".png"
+.desktop                           | .desktop
-  "myuniquefile.longextension" ==> ".longextension"
+document                           |
-  "IAmAFileWithoutExtension" ==> ""
+document.txt_backup                |
-  "/path/to.my/file" ==> ""
+/etc/pam.d/login                   |
-  "file.odd_one" ==> ""
-  "" ==> ""
-  "café.png" ==> ".png"
-  "file.resumé" ==> ""
-  "café.png" ==> ".png"
-  "file.resumé" ==> ""
-With unicode support:
-  "picture.jpg" ==> ".jpg"
-  "http://mywebsite.com/picture/image.png" ==> ".png"
-  "myuniquefile.longextension" ==> ".longextension"
-  "IAmAFileWithoutExtension" ==> ""
-  "/path/to.my/file" ==> ""
-  "file.odd_one" ==> ""
-  "" ==> ""
-  "café.png" ==> ".png"
-  "file.resumé" ==> ".resumé"
-  "café.png" ==> ".png"
-  "file.resumé" ==> ".resumé"
 </pre>