도장

permutations

DamienRice — Tue, 26 May 2009 00:07:34 +0900

from __future__ import generators

def xcombinations(items, n):
    if n==0: yield []
    else:
        for i in range(len(items)):
            for cc in xcombinations(items[:i]+items[i+1:],n-1):
                yield [items[i]]+cc

def xpermutations(items):
    return xcombinations(items, len(items))

if __name__=='__main__':
    '''
    for p in xpermutations(['0','1','2','3']):
        print (''.join(p))
    '''

    arr = xpermutations(['0','1','2','3'])

    print('indices[24][4]={')
    for item in arr:
        form = '{%s,%s,%s,%s},' % (item[0], item[1], item[2], item[3])
        print(form)
    print('}')

compatible with python 3.x+

Code Golf - Choose

DamienRice — Fri, 06 Feb 2009 08:24:08 +0900

원문

def c(t):
s=1
for i in range(1,t[1]+1):
s=s*(t[0]-i+1)/i
print s
c(input())

내 사이즈는 87바이트. 포럼을 보니 파스칼 삼각형을 이용하는 방법도 있는것 같은데. 1등은 39바이트. 내 코드의 반도 안된다. 어떻게한거지?

def c(t,s):
for i in range(1,t[1]+1):
s=s*(t[0]-i+1)/i
print s
c(input(),1)

1바이트를 줄여 86바이트가 되었다.

Saving-time (python)

DamienRice — Fri, 12 Dec 2008 10:14:50 +0900

링크

첫 번째 코드 : 290바이트. 전체 61위 (2008.12.12. 오전 10시 현재)

s=' '
o='o'
n='\n'
c=[s*8,o,n,s*4,o,s*7,o,n,n,s,o,s*13,o,n,n,o,s*15,o,n,n,s,o,s*13,o,n,n,s*4,o,s*7,o,n,s*8,o]
i=[1,6,12,17,23,29,32,27,21,15,10,4]
a = raw_input().split(':')
h=i[int(a[0])%12]
m=i[int(a[1])/5]
c[h]='h'
if h==m:c[m]='x'
else: c[m]='m'
print ''.join(k for k in c)

- 출력되는 시계모양을 정의하는 코드사이즈를 줄이는데 치중했음
- 시계모양의 텍스트에서 어떤 패턴을 발견하면 더 줄일 수 있지 않을까 생각중.

Jolly Jumpers

DamienRice — Thu, 13 Nov 2008 09:52:28 +0900

원문, 번역문

% 리스트에서 인접한 값의 차가 들어있는 리스트를 sort 해서 리스트 원소의 합과 가우스 합(?)을 비교.
% io 부분 추가해야 함.
-module(jolly).
-compile(export_all).

jolly([H|T]) ->
    jollyResult([H|T], lists:usort(jollySub(H, T, []))).

jollyResult(Ori, Res) ->
    case (length(Ori)-1 =:= length(Res) andalso lists:sum(Res) =:= trunc((hd(Res)+lists:last(Res))*length(Res)/2)) of
        true ->
        io:format("Jolly~n");
        false ->
            io:format("Not Jolly~n")
    end.

%앞의 것과 뒤의 아이템을 빼서 새 리스트에 더함..
jollySub(H, [], Res) ->
    Res;
jollySub(H, [HH|T], Res) ->
    jollySub(HH, T, Res++[abs(H-HH)]).

Programming Erlang Chapter 08. Problems

DamienRice — Tue, 11 Nov 2008 08:48:53 +0900

1. Write a function start(AnAtom, Fun) to register AnAtom as spawn(Fun). Make sure your program works correctly in the case when two parallel processes simultaneously evaluate start/2. In this case, you must guarantee that one of these processes succeeds and the other fails.
- spawn(Fun)을 AnAtom으로 등록하는 start(AnAtom, Fun)함수를 작성하라. 병렬 프로세스 두 개가 동시에 start/2를 평가할 경우에 제대로 작동하는지 확인하자. 이 경우, 이 프로세스중 하나는 성공, 다른 하나는 실패가 되어야 한다.

2. Write a ring benchmark. Create N processes in a ring. Send a message round the ring M times so that a total of N * M messages get sent. Time how long this takes for different values of N and M. Write a similar program in some other programming language you are familiar with. Compare the results. Write a blog, and publish the results on the Internet!
- 링(ring) 벤치마크를 작성하라. 링에 프로세스를 N개 생성하자. 링을 돌며 M번 메시지를 보내 총 N*M개의 메시지를 보내자. N과 M에 여러 다른 값을 주어 얼마나 걸리는지 시간을 재자.