43 lines
1.0 KiB
Factor
43 lines
1.0 KiB
Factor
! Copyright (c) 2008 Eric Mertens
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: kernel math math.order splitting sequences ;
|
|
|
|
IN: project-euler.117
|
|
|
|
! http://projecteuler.net/index.php?section=problems&id=117
|
|
|
|
! DESCRIPTION
|
|
! -----------
|
|
|
|
! Using a combination of black square tiles and oblong tiles chosen
|
|
! from: red tiles measuring two units, green tiles measuring three
|
|
! units, and blue tiles measuring four units, it is possible to tile a
|
|
! row measuring five units in length in exactly fifteen different ways.
|
|
|
|
! How many ways can a row measuring fifty units in length be tiled?
|
|
|
|
! SOLUTION
|
|
! --------
|
|
|
|
! This solution uses a simple dynamic programming approach using the
|
|
! following recurence relation
|
|
|
|
! ways(i) = 1 | i <= 0
|
|
! ways(i) = ways(i-4) + ways(i-3) + ways(i-2) + ways(i-1)
|
|
|
|
<PRIVATE
|
|
|
|
: short ( seq n -- seq n )
|
|
over length min ;
|
|
|
|
: next ( seq -- )
|
|
[ 4 short tail* sum ] keep push ;
|
|
|
|
PRIVATE>
|
|
|
|
: (euler117) ( n -- m )
|
|
V{ 1 } clone tuck [ next ] curry times peek ;
|
|
|
|
: euler117 ( -- m )
|
|
50 (euler117) ;
|