Return to Answer

added 64 characters in body

edited Mar 6, 2021 at 22:05

Haskell, 61(削除) 61 (削除ここまで) 56 bytes

f l=foldl1(*)$zipWithf=product.zipWith(^)[x|x<-[2..],all((>0).rem x)[2..x-1]]l1]]

f l=foldl1(*)$zipWith(^)[x|x<-[2..],all((>0).rem x)[2..x-1]]l

f=product.zipWith(^)[x|x<-[2..],all((>0).rem x)[2..x-1]]

answered Mar 6, 2021 at 14:19

answered Mar 6, 2021 at 14:19

f l=foldl1(*)$zipWith(^)[x|x<-[2..],all((>0).rem x)[2..x-1]]l