Data commit

Task/DNS-query/Haskell/dns-query-1.hs

@@ -0,0 +1,16 @@
+module Main where
+
+import Network.Socket
+
+getWebAddresses :: HostName -> IO [SockAddr]
+getWebAddresses host = do
+  results <- getAddrInfo (Just defaultHints) (Just host) (Just "http")
+  return [ addrAddress a | a <- results, addrSocketType a == Stream ]
+
+showIPs :: HostName -> IO ()
+showIPs host = do
+  putStrLn $ "IP addresses for " ++ host ++ ":"
+  addresses <- getWebAddresses host
+  mapM_ (putStrLn . ("  "++) . show) addresses
+
+main = showIPs "www.kame.net"

Task/DNS-query/Haskell/dns-query-2.hs

@@ -0,0 +1,4 @@
+procedure main(A)
+   host := gethost( A[1] | "www.kame.net") | stop("can't translate")
+   write(host.name, ": ", host.addresses)
+end