////////////////////////////////////////////////////////////////
//
//     https://www.planetquantum.com/News/101023.txt
//
////////////////////////////////////////////////////////////////

>(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) 16490654
48258285223757564)
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)
.9159655941772190150546035149323841107741493742816721342664981196217630197762547
69479356513
>(HyperF [1/2 1/2 1] [3/2 3/2] -1.)
.9159655941772190150546035149323841107741493742816721342664981196217630197762547
69479554521
>(Float (* 1/32 (^ _Pi 3)))
.9689461462593693804836348458469186000695402676839096154420168157439498411708033
13673959408
>(HyperF [1/2 1/2 1/2 1] [3/2 3/2 3/2] -1.)
.9689461462593693804836348458469186000695402676839096154420168157439498411708033
13673959497
----------------------------------------------------------------
>(HttpUtility.UrlEncode "Planet Quantum - Quantum 2010.0")
"Planet+Quantum+-+Quantum+2010.0"
----------------------------------------------------------------
>(SetPrecision 300)
300
>(Gamma .3)
2.991568987687590628312516515904917791112806024921715112744119650956388767876320
21799025995
>(LogGamma .5)
.5723649429247000870717136756765293558236474064576557857568115357360688849424130
39891812443
>(RiemannZeta .7)
-2.77838844555369605275397053219601189095632599468965428548224296925980079468594
445437266007
>(JacobiSN .8 -.1)
.7168330716087885876920713469609880259674847191354300764982310576126448846221440
16598764742
>(SetPrecision 400)
400
>(Gamma .3)
2.991568987687590628312516515904917791112806024921715112744119650956388767876320
21799025995255765056542142562682614202238
>(LogGamma .5)
.5723649429247000870717136756765293558236474064576557857568115357360688849424130
39891811635137744853851004906114348994602
>(RiemannZeta .7)
-2.77838844555369605275397053219601189095632599468965428548224296925980079468594
445437266006907180810002712600054201441266
>(JacobiSN .8 -.1)
.7168330716087885876920713469609880259674847191354300764982310576126448846221440
1659876474233580912242047866848018504385