Skip to content

Instantly share code, notes, and snippets.

@Whateverable

Whateverable/query

Created September 7, 2019 00:52
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Whateverable/5b5f96f8c555163f1cd9735a1b744991 to your computer and use it in GitHub Desktop.
Save Whateverable/5b5f96f8c555163f1cd9735a1b744991 to your computer and use it in GitHub Desktop.
Download ZIP
evalable6
Raw
query
.say for (gather for ^Inf { my $a = (1 - 3511 * ($_ * 2)) / 65537; take ($_, $a) if $a.Int == $a; my $b = (1 - 3511 * ($_ * 2 + 1)) / 65537; take ($_, $b) if $b.Int == $b }).head: 20
Raw
result
(13113 -1405)
(45881 -4916)
(78650 -8427)
(111418 -11938)
(144187 -15449)
(176955 -18960)
(209724 -22471)
(242492 -25982)
(275261 -29493)
(308029 -33004)
(340798 -36515)
(373566 -40026)
(406335 -43537)
(439103 -47048)
(471872 -50559)
(504640 -54070)
(537409 -57581)
(570177 -61092)
(602946 -64603)
(635714 -68114)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment