124 Ordered radicals.sf 369 B

1234567891011121314151617181920
  1. #!/usr/bin/ruby
  2. # Author: Daniel "Trizen" Șuteu
  3. # License: GPLv3
  4. # Date: 22 August 2016
  5. # Website: https://github.com/trizen
  6. # https://projecteuler.net/problem=124
  7. # Runtime: 3.662s (previously: 6.851s) (under -O1)
  8. var list = (1..100_000 -> map {|i| [i.rad, i] })
  9. list.sort! {|a,b|
  10. (a[0] <=> b[0]) ||
  11. (a[1] <=> b[1])
  12. }
  13. say list[10000-1][1]