p15b.erl


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])].