Project Euler - Problem48 - 프로그래밍 갤러리

프로그래밍 갤러리

1/1

백신 접종 이후 몸에 일어나는 변화.jpg 야옹 ㅋㅋㅋㅋ 작성자 : 포항의봄.

Project Euler - Problem48

Rei@디씨

2009.08.29 00:58:15

조회 79 추천 0 댓글 2

Problem 48

18 July 2003

The series, 1^(1) + 2^(2) + 3^(3) + ... + 10^(10) = 10405071317.
Find the last ten digits of the series, 1^(1) + 2^(2) + 3^(3) + ... + 1000^(1000).

문제 48.

1의 1승 ~ 1000의 1000승 까지의 각 숫자의 총 합에서 마지막 10자리의 숫자를 구하라.

erlang code

%% Problem 48
%% 18 July 2003
%%
%% The series, 1^(1) + 2^(2) + 3^(3) + ... + 10^(10) = 10405071317.
%%
%% Find the last ten digits of the series, 1^(1) + 2^(2) + 3^(3) + ... + 1000^(1000).

-module( problem48 ).
-export( [calc/0] ).

% 값 계산하는 함수
calc() ->
       % 1^1 ~ 1000^1000 까지의 수열을 구한다
        Li = [ square( X, X ) || X <- lists:seq( 1, 1000 ) ],
        Sum = lists:sum( Li ),

        % 파일에 쓴다. 문제랑은 별 상관 없지만..
        write_to_file( "result.txt", Sum ),

        % 숫자를 문자열로 바꿔주는 라이브러리 함수.
        StrSum = erlang:integer_to_list( Sum ),

        % 끝 10자리를 잘라낸다.
        cut_last( StrSum, 10 ).


% N의 M승
square( N, 1 ) ->
        N;
square( N, M ) ->
        N * square( N, M-1 ).

% 파일에 쓰기
write_to_file( FileName, N ) ->
        {ok, SDevice} = file:open( FileName, write ),
        io:write( SDevice, N ),
        file:close( SDevice ).

% 문자열(==리스트)의 마지막 Len자리의 항목을 끊어낸다.
cut_last( List, Len ) ->
        Rv = lists:reverse( List ),
        Sub = lists:sublist( Rv, 1, Len ),
        lists:reverse( Sub ).

그리고 계산결과.

1000368199144695177095375011227646795567793680622934654583760988100234910747716194381428659099527845945869942643191290894720342979906407679647259860434238468038326040809691037615370376237713648510063115732951461774246705584266865759601815843666442832284556880313114548151539190975398485496645576513465858582712336401166221956188173449531674102688908321764663020306699770408625340766091595022791379368098369306375602813856646358773751558775213460225796579846583334007349358624342339332981334571237888809283103348760261360175950815609179464026871005243652109980863552142014242903434068560936573231079342194031864413918101238151056509267393515760392842472501391594073463001521843811073767021711026307504695733467897821866906648469828346607412967395801797791683609834722432241952845352564681868240369569566192825555323558078061997527689983848863374786789331581565252059172614339424600986143259233167583371070362625554531852054166117148858229508581589614337594463277554380518380921301218836327102231407332201109740102580216469298331766920619646083790732807627360614428085171565006289728508688964226799647192582924058589530750674578385365561878559589685756225692348914746922810913915619834754117648358035814128670294158565669942087736286390942241547226015004471330630113072042704288905042142628193771918594574302202147201188486345913190833752307476966010547423928871063118783026036381319039052008252072057933666712918946233312793697094074224187872045970976444309242782187738320257490080824330074991698698239561125811127607863900355221737846690567707344074494145266662103839812840216303448476913957072355732716627098372245223046792919747259113157425824064858331415400943278213042954635053574045209984512221264241903550178416824551412548637590007779082539288247751653566899882749594405895102587985539527709493510049546445427265617478399107188238681771215904234119392247489751079085948055945098805617963722928469554263782217625160428008228845552540344494860195267115187092227766195753907211126646150140614744233974765273475619964311852858614167819668340124730487710162006793529985758820653677274379563313495454526632718723482339494825759821076401694316043456512117937935456463521463021197726694983558929132357576188594977516630734212863869456164205525536767311298137182511494649463663073759219213056823561667776093739425742883930712609962163464088038826569132032160692637206183085942987973684584276491784843115472077900401692595694119273553511025991265446039366288921743581333200083717105241171504606883543418862024047552177055263424469501298905901938158245938633694105024815166679813689156668341197713475094389904887126794468901893850475050011205225742455555625750560213230387910337983950333245020653238989115507013882956277763880795687210857196493893142656713105966275422144605988058939600603604226921401402096519294250488670297983396353279460453142375542267881989197481789780678955093763193658603690898474826976906544473978017455720367929981796023041785852626797271283465789498383642350667978127819110846700

얼랭의 우월한 정수 계산능력을 찬양합시다.

고정닉 0

원본 첨부파일 1

치르노9.gif

전체 댓글 0개

등록순

본문 보기

타인의 권리를 침해하거나 명예를 훼손하는 댓글은 운영원칙 및 관련 법률에 제재를 받을 수 있습니다.
Shift+Enter 키를 동시에 누르면 줄바꿈이 됩니다.

갤러리 리스트
번호	제목	글쓴이	작성일	조회	추천
설문	비난 여론에도 뻔뻔하게 잘 살 것 같은 스타는?	운영자	24/06/03	-	-
156929	아리아리용 [3]	유리한	09.11.12	72	0
156928	잦뉴비들은	JuEUS-U	09.11.12	49	0
156927	아리아리영 [1]	유리한	09.11.12	54	0
156926	씹쌔들아 잘부탁드린다는 인사는 이렇게하는거다!! [4]	개쉛기	09.11.12	129	0
156925	까놓고 말해보자. [5]	드웤(211.189)	09.11.12	88	0
156924	왜 새로 온 사람한테 막 대하는거죠? [8]	유리한	09.11.12	160	0
156922	오늘 대전 정모 있습니다. [4]	연화	09.11.12	70	0
156921	새로오신 분들께 나가라니요!! 대체 뭣들하시는겁니까!! [4]	개쉛기	09.11.12	116	0
156920	업무시간 중 조공 [11]	아주아슬	09.11.12	176	0
156919	고정닉 신고 함미당 [6]	허허벌판	09.11.12	117	0
156918	현재 내 배경화면 공유.jpg [5]	숙신	09.11.12	133	0
156917	이시각 뜨는 단어 링크다.. [4]	rntjr	09.11.12	99	0
156915	음 MFC에서... 리스트컨트롤 질문 [2]	혀배터	09.11.12	103	0
156914	지금 이시각 뜨는 단어는? 을 코갤에 올렸어.. [6]	rntjr	09.11.12	118	0
156913	vc dll에서 vb 5.0으로 unicode string 돌려주기 질문 [1]	늅늅(122.199)	09.11.12	42	0
156912	혹시 웹서비스 잘 하는 횽 있어? (java, axis2) [7]	Kail™	09.11.12	232	0
156911	mbc 라라라 타루부분 풀. [5]	유리한	09.11.12	131	0
156909	사직서를 제출할려고 하는데... [36]	아주아슬	09.11.12	323	0
156908	JAVA 강의 (1) [1]	Pupustory	09.11.12	79	0
156906	프로그래머가 해야할 일(할 수 있어야 하는 일?) [12]	잡부(114.201)	09.11.12	368	0
156905	오늘의 C# 강의 (3) [3]	물속의다이아	09.11.12	154	0
156904	심심한 잉여들은 책이나 봐라. [6]	ㅇㅇ(210.94)	09.11.12	123	0
156903	횽들 회사는 택시비 지원이나 해줘? [9]	LightEach	09.11.12	111	0
156902	다음학기부터 수학 복수전공인데 [1]	jujubar9	09.11.12	69	0
156901	나오늘 2012 보러감. [7]	빕뱟뱟	09.11.12	96	0
156900	지금 이시각 뜨는 단어는? [10]	rntjr	09.11.12	133	0
156899	음.. PC 게임 잼는거 없을까 ? [32]	yundream(211.189)	09.11.12	206	0
156898	32비트 환경에서 개발한 코드가 64비트 운영체제에서 돌아가나염? [6]	ㅇㅇ(210.107)	09.11.12	112	0
156897	오히려 미적분이나 확률 통계는 수학책 앞부분에 있어야지. [6]	ㅇㅇ(210.94)	09.11.12	121	0
156893	어제 음악여행 라라라 에서 진리의 타루.swf [6]	숙신	09.11.12	71	0
156892	프갤횽들은 빌더나 코드기어 많이 써요? [4]	ㅈ늅이(115.94)	09.11.12	72	0
156891	미드 V 리메이크 보는 횽 있어? [11]	숙신	09.11.12	87	0
156890	Qt 는 뭐고 mfc 는 뭐이ㅏㅁ? [3]	ㅇㅇ(112.133)	09.11.12	106	0
156889	한길만 쭈욱 파는 것의 문제점. [10]	yundream(211.189)	09.11.12	183	0
156888	레쥬메를 쓰기 전엔 어떤 명상을 해야 하나연? [3]	algo	09.11.12	53	0
156887	내 주특기 antpq-36 [2]	Vita500	09.11.12	101	0
156886	VS 2005 스마트 장치 프로젝트 질문점여.. [1]	KILF(118.218)	09.11.12	45	0
156885	비주얼스튜디오 2010 [1]	이모군(110.8)	09.11.12	105	0
156884	두개 이상의 프로세스간 통신에서 질문있는데 말이야.. [3]	컴덕후(211.237)	09.11.12	87	0
156883	니들아 근데 KDE의 K버튼 달린 키보드 맨들기 쉽냐? [3]	오사카(125.176)	09.11.12	76	0
156882	1124 [6]	유리한	09.11.12	90	0
156880	혹시 여기 수능 200점 세대나 학력고사 세대 있나? [11]	rntjr	09.11.12	155	0
156877	오늘의 퀴즈~ [10]	물속의다이아	09.11.12	122	0
156876	수능때 생각난다. [2]	ㅇㅇ(210.94)	09.11.12	60	0
156874	오늘 나이트가 고삐리들로 넘쳐나겠쿠나~ [1]	키즈라엘	09.11.12	90	0
156873	완전 진지 고민글... 다시 정리... [12]	물속의다이아	09.11.12	166	0
156871	학교가 운동권을 싫어하는 이유 [6]	빕뱟뱟	09.11.12	128	0
156870	멜로디가 무너졌어. [2]	yundream(211.189)	09.11.12	67	0
156869	신종플루보다 스트레스를 조심합시다 [3]	algo	09.11.12	74	0
156868	예언가 유리한 [5]	유리한	09.11.12	131	0