[交流] Euler 工程 第廿四题：全排列的第100万项 已有5人参与

def fac(n):
    return reduce(lambda x, y: x*y, range(1, n+1))

n = 1000000
i = 9
numbers = range(10)
result = []

while i > 0 and n > 0:
    if n % fac(i) != 0:
        result.append(numbers[n/fac(i)])
    else:
        result.append(numbers[n/fac(i)-1])
    numbers.remove(result[-1])
    n  = n % fac(i)
    i -= 1

if len(numbers) > 0:
    numbers.reverse()
    result.extend(numbers)

print "".join([str(x) for x in result])

Originally posted by fatpig8832 at 2011-06-10 17:32:00:
这个...不就是题目中的一百万吗...不过这不是编程而是死算，初中生甚至小学生都能搞出来...

8楼的做法应该和我的一样吧，虽然我没怎么看懂...

Originally posted by qinghuoly at 2011-06-27 00:08:17:
优雅如魔鬼的J语言登场：

参考http://www.jsoftware.com/jwiki/Essays/Permutations

CODE:

perm=: i.@! A. i.
n=:1e6-1
n{::perm 10

单行程序：
[code](1e6-1){:i.@!A.i. ...

Originally posted by qinghuoly at 2011-06-27 23:39:12:
我解释一下程序：

perm=: i. @ ! A. i.
定义算子perm
按照语法展开perm n（n为任意正整数）为：
  (i. ! n) A. (i. n)
其中i. n 产生一个列表，0, 1, 2, ... n-1，共n项。
i. ! n 产生列表，0, 1, 2,  ...