分からない問題はここに書いてね448

[0345 １３２人目の素数さん 2018/11/01(木) 19:59:05.61 ID:xCdOvDq8]

>>344
これまた顰蹙のダンプリストｗ

Prelude> [(a,b,c,d)|a<-[1..10],b<-[1..10],c<-[1..10],d<-[1..10],a^b*c^d==1000*a+100*b+10*c+d]
[(2,5,9,2)]