September Morn Update

Task/URL-encoding/Factor/url-encoding.factor

@@ -0,0 +1,6 @@
+USING: combinators.short-circuit unicode urls.encoding.private ;
+
+: my-url-encode ( str -- encoded )
+    [ { [ alpha? ] [ "-._~" member? ] } 1|| ] (url-encode) ;
+
+"http://foo bar/" my-url-encode print

Task/URL-encoding/Free-Pascal/url-encoding.free

@@ -0,0 +1,12 @@
+function urlEncode(data: string): AnsiString;
+var
+  ch: AnsiChar;
+begin
+  Result := '';
+  for ch in data do begin
+    if ((Ord(ch) < 65) or (Ord(ch) > 90)) and ((Ord(ch) < 97) or (Ord(ch) > 122)) then begin
+      Result := Result + '%' + IntToHex(Ord(ch), 2);
+    end else
+      Result := Result + ch;
+  end;
+end;

Task/URL-encoding/Julia/url-encoding.julia

@@ -1,6 +1,7 @@
-using URIParser
+//version 1.0.1
+import HTTP.URIs: escapeuri
 
 dcd = "http://foo bar/"
-enc = escape(dcd)
+enc = escapeuri(dcd)
 
 println(dcd, " => ", enc)

Task/URL-encoding/Rust/url-encoding.rust

@@ -0,0 +1,18 @@
+const INPUT: &str = "http://foo bar/";
+const MAX_CHAR_VAL: u32 = std::char::MAX as u32;
+
+fn main() {
+    let mut buff = [0; 4];
+    println!("{}", INPUT.chars()
+        .map(|ch| {
+            match ch as u32 {
+                0 ..= 47 | 58 ..= 64 | 91 ..= 96 | 123 ..= MAX_CHAR_VAL => {
+                    ch.encode_utf8(&mut buff);
+                    buff[0..ch.len_utf8()].iter().map(|&byte| format!("%{:X}", byte)).collect::<String>()
+                },
+                _ => ch.to_string(),
+            }
+        })
+        .collect::<String>()
+    );
+}

Task/URL-encoding/VBScript/url-encoding.vb

@@ -1,13 +1,16 @@
 Function UrlEncode(url)
 	For i = 1 To Len(url)
 		n = Asc(Mid(url,i,1))
-		If (n >= 48 And n <=57) Or (n >= 65 And n <= 90) _
+		If (n >= 48 And n <= 57) Or (n >= 65 And n <= 90) _
 			Or (n >= 97 And n <= 122) Then
 			UrlEncode = UrlEncode & Mid(url,i,1)
 		Else
-			UrlEncode = UrlEncode & "%" & Hex(Asc(Mid(url,i,1)))
+			ChrHex = Hex(Asc(Mid(url,i,1)))
+                        For j = 0 to (Len(ChrHex) / 2) - 1
+			    UrlEncode = UrlEncode & "%" & Mid(ChrHex,(2*j) + 1,2)
+                        Next
 		End If
 	Next
 End Function
 
-WScript.Echo UrlEncode("http://foo bar/")
+WScript.Echo UrlEncode("http://foo baré/")