鱼C论坛

 找回密码
 立即注册
查看: 4944|回复: 18

题目33:找出具有一种奇怪约分性质的所有分数

[复制链接]
发表于 2023-10-12 15:35:30 | 显示全部楼层
$ time ./main-v2
100

real        0m0.001s
user        0m0.000s
sys        0m0.001s
  1. fn gcd(x:usize,y:usize) -> usize {
  2.     let (mut b, mut l) = (x, y);
  3.     if b < l {
  4.         (b,l) = (l,b)
  5.     }
  6.     while l != 0 {
  7.         b %= l;
  8.         (b,l) = (l,b)
  9.     }
  10.     b
  11. }
  12. fn bits(x: usize) -> usize {
  13.     let mut x = x;
  14.     let mut ans = 0;
  15.     while x != 0 && x % 10 != 0 {
  16.         ans ^= 1 << (x % 10 - 1);
  17.         x /= 10;
  18.     }
  19.     ans
  20. }

  21. fn main() {
  22.     let mut v = vec![];
  23.     for i in 10..99 {
  24.         for j in (i + 1)..=99 {
  25.             let t = bits(i)&bits(j);
  26.             if t.count_ones() != 1 {continue;}
  27.             let ri = (bits(i)^t).trailing_zeros() as usize + 1;
  28.             let rj = (bits(j)^t).trailing_zeros() as usize + 1;
  29.             if ri * j == rj * i {
  30.                 v.push((ri, rj));
  31.             }
  32.         }
  33.     }
  34.     let i = v.iter().map(|x| x.0).product::<usize>();
  35.     let j = v.iter().map(|x| x.1).product::<usize>();
  36.     println!("{}", j / gcd(i, j));
  37. }
复制代码
小甲鱼最新课程 -> https://ilovefishc.com
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2025-9-23 03:11

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表