Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2005
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2005

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: challenge problem

  • To: mathgroup at smc.vnet.net
  • Subject: [mg61292] Re: [mg61219] challenge problem
  • From: Zhengji Li <zhengji.li at gmail.com>
  • Date: Fri, 14 Oct 2005 05:56:12 -0400 (EDT)
  • References: <200510130539.BAA04503@smc.vnet.net> <a6e65e8d0510131901t7a5eee74q74469892d454bf5@mail.gmail.com> <a6e65e8d0510131911i20b373f0if11a7d5bb2d7dc08@mail.gmail.com>
  • Sender: owner-wri-mathgroup at wolfram.com

I am wrong once and again.

result = 0;
i = 1;
While[i <= 14285714285,
    temp = IntegerDigits[7i];
    If[Mod[FromDigits[Reverse[temp]], 7] === 0,
      result += 7i;
      ];
    ++i;
];

--
Li Zhengji
-------------------------------------------------------------
If all you have is a hammer, everything is a nail.
-------------------------------------------------------------


  • Prev by Date: Re: How to reverse sign on the y's in a list of (x, y)'s?
  • Next by Date: Re: big integer for Range
  • Previous by thread: Re: challenge problem
  • Next by thread: Re: challenge problem