面白い問題おしえて～な 28問目

面白い問題おしえて～ ..

303:１３２人目の素数さん
18/11/16 08:47:46.29 U19cHKqd.net
単発質問スレより　引用
1問目は1から9を多くて1回づつ使って等式を完成させる
URLﾘﾝｸ(i.imgur.com)
□/□　＊　□/□　＝　□□/□
(a/b)*(c/d) = (10*e+f) /g
左辺の分数は互換なのでa>cとして
Prelude> let r = [[a,b,c,d,e,f,g]|a<-[1..9],b<-[2..9],c<-[1..9],d<-[2..9],e<-[1..9],f<-[1..9],g<-[2..9],(a/b)*(c/d)==(10*e+f)/g,
a/=b,a/=c,a/=d,a/=e,a/=f,a/=g,b/=c,b/=d,b/=e,b/=f,b/=g,c/=d,c/=e,c/=f,c/=g,d/=e,d/=f,d/=g,e/=f,e/=g,f/=g,a>c]
Prelude> let f x = map floor x
Prelude> map f r
[[7,2,3,6,1,4,8],[7,6,3,2,1,4,8],[8,2,3,6,1,4,7],[8,2,7,4,6,3,9],[8,2,7,6,1,4,3],[8,4,7,2,6,3,9],[8,4,7,6,2,1,9],[8,6,3,2,1,4,7],[9,2,7,4,6,3,8],
[9,2,8,4,6,3,7],[9,4,7,2,6,3,8],[9,4,7,6,2,1,8],[9,4,8,2,6,3,7],[9,4,8,6,2,1,7],[9,6,7,4,2,1,8],[9,6,8,4,2,1,7]]

2問目は2個答える
最大になるように-5から5を多くて1回づつ使う
最小になるように-5から5を多くて1回づつ使う
URLﾘﾝｸ(i.imgur.com)
こっちが終わらない　：（

次ページ

続きを表示

1を表示