Post History
Haskell, 75 73 bytes -2 bytes thanks to @user f[]=1 f(x:y)=foldr(-)0$zipWith(\i->(*f[take i r++drop(i+1)r|r<-y]))[0..]x Try it online!
Answer
#2: Post edited
by
Hakerh400
·
2021-08-30T07:49:54Z (over 3 years ago)
# [Haskell], 75 bytes- <!-- language-all: lang-hs -->
- f[]=1
f(x:y)=sum$zipWith(\i a->a*(-1)^i*f[take i x++drop(i+1)x|x<-y])[0..]x[Try it online!][TIO-kswwahf9]- [Haskell]: https://www.haskell.org/
[TIO-kswwahf9]: https://tio.run/##VY29jsIwEIT7PMUUV9hkbcUQjh8R3uBqCuOTLF0iLAhExEgG3bsHm4Kfame/2Z3Z2X5fHw7D0GhTqaxhYXnlVX9pv26u2zi/Y1sHK9Z2xITiv27UaG/3NRxCnv@dTx1zueLhP6zE1XBdSGnC0Fp3RIXWdj9g3dkdPSQaDl/3vs@yx0CVARpaK0JhCLogKGMipATllDBOWEwIpZw@nbjOEo9vonzdx5C3nJf8TI2ZhEmySkJs@E5yRpgTFh9XiafiBzTDHQ "Haskell – Try It Online"
- # [Haskell], <del>75</del> 73 bytes
- -2 bytes thanks to @user
- <!-- language-all: lang-hs -->
- f[]=1
- f(x:y)=foldr(-)0$zipWith(\i->(*f[take i r++drop(i+1)r|r<-y]))[0..]x
- [Try it online!][TIO-ksyc9d83]
- [Haskell]: https://www.haskell.org/
- [TIO-ksyc9d83]: https://tio.run/##VY07DsIwEET7nGIKCpusrQQSfiLcgJrCuIhELCwCRI4LQNw92BR8qp19sztzrPtT07bDYJSu8sSw2@rOK3NtD44Jno0etttZf2R7KzZsbJSvTw0sXJoe3LVjNs25e7q1uGvOVSalvg3n2l5Q4Vx3W7DO2YuHhOHwTe/7JHkPVAmgoFROyDRBZYRc6wApQlkSJhGLKaGQ5ccJ6zzy8CaK730I@cn5yv/UkEmYRqsghIZZlHPCgrD8u4o8Fr@hHl4 "Haskell – Try It Online"
#1: Initial revision
by
Hakerh400
·
2021-08-29T07:32:52Z (over 3 years ago)
# [Haskell], 75 bytes
<!-- language-all: lang-hs -->
f[]=1
f(x:y)=sum$zipWith(\i a->a*(-1)^i*f[take i x++drop(i+1)x|x<-y])[0..]x
[Try it online!][TIO-kswwahf9]
[Haskell]: https://www.haskell.org/
[TIO-kswwahf9]: https://tio.run/##VY29jsIwEIT7PMUUV9hkbcUQjh8R3uBqCuOTLF0iLAhExEgG3bsHm4Kfame/2Z3Z2X5fHw7D0GhTqaxhYXnlVX9pv26u2zi/Y1sHK9Z2xITiv27UaG/3NRxCnv@dTx1zueLhP6zE1XBdSGnC0Fp3RIXWdj9g3dkdPSQaDl/3vs@yx0CVARpaK0JhCLogKGMipATllDBOWEwIpZw@nbjOEo9vonzdx5C3nJf8TI2ZhEmySkJs@E5yRpgTFh9XiafiBzTDHQ "Haskell – Try It Online"