blob: 229c60a548feb744c82c033ddee4e8dfb9eaed54 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
-module(problem15).
-export([solve/0]).
solve() ->
length(perms("DDDDDDDDDDDDDDDDDDDDRRRRRRRRRRRRRRRRRRRR")).
% Tack, Joe.
perms([]) ->
[[]];
perms(L) ->
[[H|T] || H <- L, T <- perms(L--[H])].
|