Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Split into n distinct parts
--ghc 7.10 main = print $ split 4 50 split m n = split' 0 m n where split' t 0 n = [] split' t m n | n < t*m + m*(m-1)`div`2 = [] split' t 1 n = [[n]] split' t m n = [p:q | p <- [t..n], q <- split' (p+1) (m-1) (n-p)]
run
|
edit
|
history
|
help
0
mapper
Search
suffix trie
Goodstein sequences
znajdywacz trojkatow prostokatnych
first haskell program
Invert a monotonic function
equiv_strings
tried some polynoms 2: now with some `*` and foldr(-p)
haskell linked list