Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
22 lines (13 sloc) 539 Bytes
foldl1 (<>) $ map circle [1,5..30]
map circle [1..10]
foldl1 (<>) $ map (\x -> circle x # translateX x # fcA (red `withOpacity` (3 /x))) [1,5..100]
foldl1 (<>) $ map (\x -> square x # rotate (Deg x)) [1,5..120]
zip [1..] $ map (\x -> square x # rotate (Deg x)) [1,5..30]
5 % 3 * 100.4
zip ['a'..'z'] $ zipWith (<>) (map circle [1,3..10]) (map square [20,18..0])
runTurtle $ do { forward 100; right 30; forward 90; }
let { s 0 = eqTriangle 20;
s (n+1) = s n
===
(s n ||| s n) # centerX
} in s 5
Something went wrong with that request. Please try again.