.NET is new to Quantum. Quantum does not support every aspect of .NET yet. Rick: Louis, I think this is the beginning of a beautiful friendship. Like Rick says, it is a beginning. I will be working more on .NET and other things I am planning to look at.
>(Setq filename "C:\\Windows\\DirectX.log")
"C:\\Windows\\DirectX.log"
>(FileInfo.Length (New FileInfo filename))
95813
>(Length (Setq data (File.ReadAllText filename)))
95813
>(Setq ostream (New FileStream "C:\\Temp\\Compressed.bin" FileMode.Create FileAccess.Write))
System.IO.FileStream
>(Setq ozip (New GZipStream ostream CompressionMode.Compress))
System.IO.Compression.GZipStream
>(Setq writer (New StreamWriter ozip))
System.IO.StreamWriter
>(writer.Write data)
NULL
>(writer.Close)
NULL
>(FileInfo.Length (New FileInfo "C:\\Temp\\Compressed.bin"))
7215
>(Setq istream (New FileStream "C:\\Temp\\Compressed.bin" FileMode.Open FileAccess.Read))
System.IO.FileStream
>(Setq izip (New GZipStream istream CompressionMode.Decompress))
System.IO.Compression.GZipStream
>(Setq reader (New StreamReader izip))
System.IO.StreamReader
>(Length (Setq data2 (reader.ReadToEnd)))
95813
>(== data2 data)
TRUE
>(reader.Close)
NULL
----------------------------------------------------------------
>(ModPower 52183107423638137677833 (EulerPhi 1649065448258285223757564) 1649065448258285223757564)
1
>(PrimePowerP 553044779328652256944164704040576024086334479449)
[59467 10]
>(PrimitiveRoot 428710507114237)
2
>(ModPower (PrimitiveRoot 428710507114237) 428710507114236 428710507114237)
1
>(PrimitiveRoot 36721)
37
>(DiscreteLog 784982 4910 1030263)
10205
>(ModPower 784982 (DiscreteLog 784982 4910 1030263) 1030263)
4910
----------------------------------------------------------------
>(Setq key Registry.LocalMachine)
HKEY_LOCAL_MACHINE
>(Setq regid "SOFTWARE\\Microsoft\\Internet Explorer")
"SOFTWARE\\Microsoft\\Internet Explorer"
>(Setq key (key.OpenSubKey regid))
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer
>(Setq key (Registry.LocalMachine.OpenSubKey regid))
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer
>(key.GetValue "Build")
"87600"
>(key.GetValue "Version")
"8.0.7600.16385"
----------------------------------------------------------------
>(SetPrecision 300)
300
>(Float _Catalan)
.915965594177219015054603514932384110774149374281672134266498119621763019776254769479356513
>(HyperF [1/2 1/2 1] [3/2 3/2] -1.)
.915965594177219015054603514932384110774149374281672134266498119621763019776254769479554521
>(Float (* 1/32 (^ _Pi 3)))
.968946146259369380483634845846918600069540267683909615442016815743949841170803313673959408
>(HyperF [1/2 1/2 1/2 1] [3/2 3/2 3/2] -1.)
.968946146259369380483634845846918600069540267683909615442016815743949841170803313673959497
----------------------------------------------------------------
>(HttpUtility.UrlEncode "Planet Quantum - Quantum 2010.0")
"Planet+Quantum+-+Quantum+2010.0"
----------------------------------------------------------------
>(SetPrecision 300)
300
>(Gamma .3)
2.99156898768759062831251651590491779111280602492171511274411965095638876787632021799025995
>(LogGamma .5)
.572364942924700087071713675676529355823647406457655785756811535736068884942413039891812443
>(RiemannZeta .7)
-2.77838844555369605275397053219601189095632599468965428548224296925980079468594445437266007
>(JacobiSN .8 -.1)
.716833071608788587692071346960988025967484719135430076498231057612644884622144016598764742
>(SetPrecision 400)
400
>(Gamma .3)
2.99156898768759062831251651590491779111280602492171511274411965095638876787632021799025995255765056542142562682614202238
>(LogGamma .5)
.572364942924700087071713675676529355823647406457655785756811535736068884942413039891811635137744853851004906114348994602
>(RiemannZeta .7)
-2.77838844555369605275397053219601189095632599468965428548224296925980079468594445437266006907180810002712600054201441266
>(JacobiSN .8 -.1)
.71683307160878858769207134696098802596748471913543007649823105761264488462214401659876474233580912242047866848018504385
TXT Version: 101023.txt. |
|
Oct 23, 2010 - .NET #3
|
Hello, visitor to PLANETQUANTUM.COM. This is my third dump
of some Quantum 2010 console output onto my website PLANETQUANTUM.COM . Here are
some Quantum 2010 examples including GZip, Registry, Regex, UrlEncode, and computer
algebra examples.