It's not that hard to believe. Here [1] is a somewhat e-famous example of a three-person family whose annual spending is around ~$25k.
[1]: http://www.mrmoneymustache.com/2015/01/16/exposed-the-mmm-fa...
212 karma · joined April 21, 2015
[ my public key: https://keybase.io/jtobin; my proof: https://keybase.io/jtobin/sigs/-hjJrUjcY3D4mJ-dbSuLxojYWSdAFBMzin1dUcvg4Ck ]
[1]: http://www.mrmoneymustache.com/2015/01/16/exposed-the-mmm-fa...
{-# LANGUAGE DeriveFunctor #-}
{-# LANGUAGE LambdaCase #-}
import Data.Functor.Foldable
import Data.List.Split
data QuadTreeF a r =
NodeF r r r r
| LeafF a
| EmptyF
deriving Functor
builder :: [a] -> QuadTreeF a [a]
builder = \case
[] -> EmptyF
[x] -> LeafF x
xs -> NodeF a b c d where
[a, b, c, d] = chunksOf (length xs `div` 4) xs
consumer :: QuadTreeF a [a] -> [a]
consumer = \case
EmptyF -> []
LeafF a -> [a]
NodeF ul ur lr ll -> concat [ll, ul, ur, lr]
rotate :: [a] -> [a]
rotate = hylo consumer builder"Small percentage of consumers report dissatisfaction with product - company investigating."
[1]: https://etherscan.io/address/0xbb9bc244d798123fde783fcc1c72d...