[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

排它平方数

本帖最后由 ivor 于 2019-3-29 16:47 编辑

小明正看着 203879 这个数字发呆。

    原来,203879 * 203879 = 41566646641

    这有什么神奇呢?仔细观察,203879 是个6位数,并且它的每个数位上的数字都是不同的,并且它平方后的所有数位上都不出现组成它自身的数字。

    具有这样特点的6位数还有一个,请你找出它!

    再归纳一下筛选要求:
    1. 6位正整数
    2. 每个数位上的数字不同
    3. 其平方数的每个数位不含原数字的任何组成数位

答案是一个6位的正整数。
  1. $start=[System.DateTime]::Now
  2. for($a=100001;$a -le 999999;$a++){
  3. if ((([char[]]($a).ToString()| group).Length -eq 6) -and (([char[]][math]::Pow($a,2).ToString()).Where({$a.ToString().contains($_)}).Count -eq 0)){
  4.     Write-Host $a
  5. }
  6. }
  7. ([System.DateTime]::Now - $start).TotalSeconds
复制代码
  1. 203879
  2. 639172
  3. "耗时:"100.269806
复制代码
转载:https://blog.csdn.net/u012027907/article/details/14157077

返回列表