这个问题如何解决？

lostdes · 发表于 2013-10-14 18:00:56

请找出所有的三位数，使它除以7、11、13的余数之和尽可能大这个怎么用mathematica实现呢？

chyanog · 发表于 2013-10-17 22:37:04

本帖最后由 chyanog 于 2013-10-17 22:38 编辑

Range[100, 999] /. r_ :> (Tr[#~Mod~{7, 11, 13}] & /@ r /. s_ :> Pick[r, s, Max@s])
Pick[#, #2, Max@#2] &[#, Tr[#~Mod~{7, 11, 13}] & /@ #] &@Range[100, 999]

复制代码

账号		自动登录	找回密码
密码			注册

账号		自动登录	找回密码
密码			立即注册

[编程进阶] 这个问题如何解决？