YAPC::EU 2018 Glasgow Update!

Task/SHA-256/Phix/sha-256-1.phix

@@ -1,16 +1,11 @@
-constant lib = open_dll("SHA.DLL")
-constant SHA_HashBlock = define_c_proc(lib,"SHA_HashBlock",{C_PTR,C_PTR,C_INT})
+include builtins\sha256.e
 
-function sha256(string s)
-atom mem = allocate(32)
-sequence res
-    c_proc(SHA_HashBlock,{s,mem,length(s)})
-    res = peek4u({mem,8})
-    free(mem)
-    for i=1 to length(res) do
-        res[i] = sprintf("%08x",res[i])
+function asHex(string s)
+string res = ""
+    for i=1 to length(s) do
+        res &= sprintf("%02X",s[i])
     end for
-    return join(res)
+    return res
 end function
 
-?sha256("Rosetta code")
+?asHex(sha256("Rosetta code"))

Task/SHA-256/Phix/sha-256-2.phix

@@ -122,5 +122,4 @@ atom h0 = 0x6a09e667,
     return join(res)
 end function
 
-string res = sha256("Rosetta code")
-?res
+?sha256("Rosetta code")