The Gematria of Satan Explored Through Haskell. in #haskell

Submitted by metaperl on Fri, 04/21/2006 - 5:37pm.


[16:40:15] ihope/ sum [1..sum [1..8]]
[16:40:17] lambdabot 666
[16:40:27] GeniXPro/ nice
[16:40:40] GeniXPro/ You created the best number!
[16:40:44] GeniXPro/ beast*
[16:40:58] ihope/ What a typo.
[16:43:38] ihope/ "This calls for wisdom. If anyone has insight, let him calculate the number of the beast, for it is man's number. His number is 666."

Submitted by metaperl on Fri, 04/21/2006 - 5:41pm.


[1..6^2]

works also.

Submitted by metaperl on Fri, 04/21/2006 - 5:46pm.


[16:49:37] Well, 666 is 999 upside down.
[16:50:18] Annoyingly enough, the shortest Haskell code that results in the number 666 is 666.
[16:50:27] Or rather, "666".
[16:50:58] > 500 + 100 + 50 + 10 + 5 + 1
[16:50:59] 666
[16:51:23] ['6','6'] ++ ['6']
[16:51:24] ihope: I don't see anything about divmodding the number of the beast
[16:51:30] > ['6','6'] ++ ['6']
[16:51:32] "666"
[16:51:49] SamB: that was to translate it into ASCII.
[16:51:53] I used the Christian cross against itself :)
[16:51:56] > divMod 666 128
[16:51:58] (5,26)
[16:52:07] > ['6'] ++ ['6'] ++ ['6']
[16:52:09] "666"
[16:52:09] > "\5\26"
[16:52:11] "\ENQ\SUB"
[16:52:21] Ah, his name is Enqsub.
[16:52:45] > chr (ord '\SUB' + 128)
[16:52:47] '\154'
[16:53:08] > sum[1..12] - sum[1..3]
[16:53:10] 72
[16:53:46] > (sum [12..36], sum [4..11], sum[1..3])
[16:53:48] (600,60,6)

Submitted by metaperl on Fri, 04/21/2006 - 5:47pm.

....


[16:53:46] > (sum [12..36], sum [4..11], sum[1..3])
[16:53:48] (600,60,6)

Comment viewing options

Select your preferred way to display the comments and click "Save settings" to activate your changes.