diff org/man-years.org @ 3:44f31e2126fa

cleanup
author Robert McIntyre <rlm@mit.edu>
date Thu, 20 Oct 2011 07:35:52 -0700
parents c29b950c8729
children 6842199d5e26
line wrap: on
line diff
     1.1 --- a/org/man-years.org	Thu Oct 20 07:22:13 2011 -0700
     1.2 +++ b/org/man-years.org	Thu Oct 20 07:35:52 2011 -0700
     1.3 @@ -7,7 +7,7 @@
     1.4  #+include: ../../aurellem/org/level-0.org
     1.5  #+babel: :results output :exports both
     1.6  
     1.7 -* What is a Man-Hour
     1.8 +* What is a Man-Hour?
     1.9  
    1.10  A [[http://en.wikipedia.org/wiki/Man-hour][/Man-Hour/]] is a term from the field of Management.  It is one hour
    1.11  of work by one person for a certain task. 
    1.12 @@ -132,20 +132,23 @@
    1.13  
    1.14  
    1.15  
    1.16 -;; multiply each time-period's total number of people
    1.17 -;; by those people's average lifespan in years to get
    1.18 -;; the total number of man-years experienced during
    1.19 -;; that period, then add them together.
    1.20  
    1.21 +
    1.22 +;; This section is just here to make the result look pretty.
    1.23  (dorun
    1.24   (map println
    1.25        (clojure.contrib.string/split
    1.26         #"," 
    1.27 -       (cl-format nil "years of human experience: \n ~R years"
    1.28 -                  (reduce + 
    1.29 -                          (map *
    1.30 -                               (map births time-periods)
    1.31 -                               (map lifespans time-periods)))))))
    1.32 +       (cl-format 
    1.33 +        nil "years of human experience: \n ~R years"
    1.34 +;; Multiply each time-period's total number of people
    1.35 +;; by those people's average lifespan in years to get
    1.36 +;; the total number of man-years experienced during
    1.37 +;; that period, then add them together.
    1.38 +        (reduce + 
    1.39 +                (map *
    1.40 +                     (map births time-periods)
    1.41 +                     (map lifespans time-periods)))))))
    1.42  
    1.43  #+end_src
    1.44