Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
7
Task/HTTPS/Haskell/https-2.hs
Normal file
7
Task/HTTPS/Haskell/https-2.hs
Normal file
|
|
@ -0,0 +1,7 @@
|
|||
# Requires Unicon version 13
|
||||
procedure main(arglist)
|
||||
url := (\arglist[1] | "https://sourceforge.net/")
|
||||
w := open(url, "m-") | stop("Cannot open " || url)
|
||||
while write(read(w))
|
||||
close(w)
|
||||
end
|
||||
Loading…
Add table
Add a link
Reference in a new issue