[아카이브] 순수수학, 물리학, 화학 등 : 거래와 무관한 두뇌 트레이닝 퍼즐 - 페이지 322

[[삭제]]

MetaDriver >> :

Vasik에서 4-5줄에 들어갈 수 있습니다.

:)

나는 믿는다. 하지만 흥미롭게 볼 수 있을 것입니다...

[richie]

admin писал(а) >>

고샤..
펄에서 알고리즘은 다음과 같습니다.

for(111..999){
split(//,$_);
my($sum,$mul)=(0,1);
for(@_){$sum+=$_;$mul*=$_;}
print("$_\n") if($sum*12==$mul);
}

저는 BASIC을 18년 동안 알고 있습니다. 그러나 당신이 쓴 것을 나는 이해할 수조차 없습니다. 진주는 모릅니다. 일반적으로 다음과 같이 거의 모든 것이 모듈에 숨겨져 있으면 모든 것이 BASIC에서 훨씬 더 간단해집니다.
-
프라이빗 서브 커맨드1_Click()
Me.PrintList(MathMod.OtnProSum(1,1e5))
엔드 서브

[richie]

MetaDriver писал(а) >>

네, 그는 그저 프로그래머일 뿐입니다.

더 말할게. 그는 전혀 프로그래머가 아닙니다.

[Vladimir Gomonov]

admin >> :

나는 믿는다. 하지만 흥미롭게 볼 수 있을 것입니다...

바라보다...
;)

[Vladimir Gomonov]

Private Sub FindAllButton_Click()
  For i = 111 To 999
    If (( 1 # * (i Mod 10 ) * ((i Mod 100 ) \ 10 ) * (i \ 100 )) / (i Mod 10 + (i Mod 100 ) \ 10 + i \ 100 ) = 12 ) Then Range( "c4" ).Value = i
  Next i
End Sub

그리고 그것은, sobsno, 계정의 알고리즘. "순수 알고리즘"은 헤더와 함수의 닫는 End를 제외하고 세 줄에 맞습니다. :)

[Ihor]

모든 크기 n에 대해 루비(일반 bigint가 있음)에서. :)

n=6;
(10**(n-1)..10**n-1).각{|i|
합계=0;물=1
(1..n).각{|s|
d=i%10**s/10**(s-1)
합계+=d;멀*=d
}
mul/sum==12인 경우
나 인쇄 ,"\n"
끝
}

[[삭제]]

MetaDriver >> :
А это, собсно, алгоритм счёта. "Чиста алгоритм" уместился в трёх строках, ежли не считать заголовок и закрывающий End функции :)

엄청난!

[Sceptic Philozoff]

Richie , 그러나 스레드의 322번째 페이지에 제공된 "30을 세 큐브의 합으로" 평등이 정확히 준수되는지 Vasik에서 확인할 수 있습니다. https://c.mql4.com/forum/2010/04 /코헨.gif ?
Richie , 이 경우 "정확히"는 오류 없이 절대적으로 정확 합니다. 이것은 디오판틴 방정식에 관한 책의 정수에 대한 같음입니다.

[richie]

Mathemat писал(а) >>
Richie , 그러나 스레드의 322번째 페이지에 제공된 "30을 세 큐브의 합으로" 평등이 정확히 준수되는지 Vasik에서 확인할 수 있습니다. https://c.mql4.com/forum/2010/04 /코헨.gif ?
Richie , 이 경우 "정확히"는 오류 없이 절대적으로 정확 합니다. 이것은 디오판틴 방정식에 관한 책의 정수에 대한 같음입니다.

불행히도 Double 및 Long 과 같은 표준 데이터 유형에서는 아무 것도 작동하지 않습니다. 이제 나는 대학을 졸업한 후 VB에서 매우 큰 숫자와 매우 작은 숫자로 정확한 계산을 수행할 수 있는 VB 함수 라이브러리를 파괴하여 VB에서 고유한 데이터 유형을 생성한 것을 유감스럽게 생각합니다.
-
나는 Double 유형으로 VB에서 그것을 시도했습니다. Excel에서는 가비지가 완전한 것으로 판명되었습니다. 0이 나왔습니다.
라이브러리는 간단하게 작동했습니다. 숫자는 String 유형의 문자열로 저장되었습니다. 그리고 이러한 문자열의 문자를 Byte 형식으로 변환한 후 작업을 수행했습니다. 시간이 더 있다면 다시 쓸 수 있습니다.
-
아니면 다른 교활한 증거 방법이 있습니까?

[Dmitry Fedoseev]

Mathemat писал(а) >>
Richie 및 여기에서 분기의 322번째 페이지에 제공된 "30개의 큐브의 합"이 정확히 준수되는지 Vasik에서 확인할 수 있습니다. https://c.mql4.com/forum/2010/ 04/코헨.gif ?
Richie , 이 경우 "정확히"는 오류 없이 절대적으로 정확 합니다. 이것은 디오판틴 방정식에 대한 책에서 정수에 대한 같음입니다.

Windows 계산기에서 계산할 수 있습니다.