twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

over pararenthesised arty fibonacci

Browse Source
This commit is contained in:
Don Stewart 2007-11-07 23:06:01 +00:00
parent ab1f382566
commit 2b7a8d06da
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Layout/Spiral.hs
View File

@ -40,7 +40,7 @@ import XMonad.StackSet ( integrate )
-- %layout , Layout $ spiral (1 % 1) -- %layout , Layout $ spiral (1 % 1)
fibs :: [Integer] fibs :: [Integer]
fibs = 1 : 1 : (zipWith (+) fibs (tail fibs)) fibs = 1 : 1 : zipWith (+) fibs (tail fibs)
mkRatios :: [Integer] -> [Rational] mkRatios :: [Integer] -> [Rational]
mkRatios (x1:x2:xs) = (x1 % x2) : mkRatios (x2:xs) mkRatios (x1:x2:xs) = (x1 % x2) : mkRatios (x2:xs)