fork download 
  1.  
  2. (defparameter *n* 0)
  3.  
  4. (defun calc-counts (total-weight keys &aux results)
  5.   (labels ((calc (left-weight keys-count keys)
  6.              (incf *n*)
  7.              (cond ((= left-weight 0)
  8.                     (push keys-count results))
  9.                    ((and (> left-weight 0) (consp keys))
  10.                     (destructuring-bind (key &rest rest-keys) keys
  11.                       (calc (- left-weight (key-weight key))
  12.                             (add-key keys-count key)
  13.                             keys)
  14.                       (calc left-weight keys-count rest-keys))))))
  15.     (calc total-weight (make-counts keys) keys)
  16.     results))
  17.  
  18. (defun make-counts (keys)
  19.   (loop :for key :in keys
  20.         :collect (cons key 0)))
  21.  
  22. (defun add-key (counts k)
  23.   (loop :for (key . count) :in counts
  24.         :collect (cons key (if (eq key k) (1+ count) count))))
  25.  
  26. (defun get-key-count (counts k)
  27.   (cdr (assoc k counts)))
  28.  
  29. (defun key-weight (k)
  30.   (get k :weight))
  31.  
  32. (defun (setf key-weight) (w k)
  33.   (setf (get k :weight) w))
  34.  
  35. ; --------
  36.  
  37. (defconstant cake&tea-weight 50)
  38. (defconstant    apple-weight 65)
  39.  
  40. (setf (key-weight 'sour)      (+ apple-weight (* 3 cake&tea-weight)))
  41. (setf (key-weight 'half-sour) (+ apple-weight (* 2 cake&tea-weight)))
  42. (setf (key-weight 'sweet)     (+ apple-weight      cake&tea-weight) )
  43.  
  44. (defparameter *fmt*
  45.   "~%Result #~d
  46.   Sour      apples: ~4d
  47.   Half-sour apples: ~4d
  48.   Sweet     apples: ~4d
  49.   Total apples: ~d, cakes: ~d, tea drinks: ~d
  50. ")
  51.  
  52. (defun main ()
  53.   (let ((results (calc-counts 14350 '(sour half-sour sweet))))
  54.     (loop :for i :upfrom 1
  55.           :for result :in results :do
  56.           (let* ((sour   (get-key-count result 'sour))
  57.                  (half   (get-key-count result 'half-sour))
  58.                  (sweet  (get-key-count result 'sweet))
  59.                  (apples (+ sour half sweet))
  60.                  (c&t    (+ (* 3 sour) (* 2 half) sweet)))
  61.             (format t *fmt* i sour half sweet apples c&t c&t)))
  62.     (format t "~%~a cases~%" *n*)))
  63.  
  64. (main)
Success #stdin #stdout 2.01s 11360KB
comments (?)
stdin 
Standard input is empty
stdout 
Result #1
  Sour      apples:    0
  Half-sour apples:   11
  Sweet     apples:  109
  Total apples: 120, cakes: 131, tea drinks: 131

Result #2
  Sour      apples:    0
  Half-sour apples:   34
  Sweet     apples:   76
  Total apples: 110, cakes: 144, tea drinks: 144

Result #3
  Sour      apples:    0
  Half-sour apples:   57
  Sweet     apples:   43
  Total apples: 100, cakes: 157, tea drinks: 157

Result #4
  Sour      apples:    0
  Half-sour apples:   80
  Sweet     apples:   10
  Total apples: 90, cakes: 170, tea drinks: 170

Result #5
  Sour      apples:    1
  Half-sour apples:    9
  Sweet     apples:  110
  Total apples: 120, cakes: 131, tea drinks: 131

Result #6
  Sour      apples:    1
  Half-sour apples:   32
  Sweet     apples:   77
  Total apples: 110, cakes: 144, tea drinks: 144

Result #7
  Sour      apples:    1
  Half-sour apples:   55
  Sweet     apples:   44
  Total apples: 100, cakes: 157, tea drinks: 157

Result #8
  Sour      apples:    1
  Half-sour apples:   78
  Sweet     apples:   11
  Total apples: 90, cakes: 170, tea drinks: 170

Result #9
  Sour      apples:    2
  Half-sour apples:    7
  Sweet     apples:  111
  Total apples: 120, cakes: 131, tea drinks: 131

Result #10
  Sour      apples:    2
  Half-sour apples:   30
  Sweet     apples:   78
  Total apples: 110, cakes: 144, tea drinks: 144

Result #11
  Sour      apples:    2
  Half-sour apples:   53
  Sweet     apples:   45
  Total apples: 100, cakes: 157, tea drinks: 157

Result #12
  Sour      apples:    2
  Half-sour apples:   76
  Sweet     apples:   12
  Total apples: 90, cakes: 170, tea drinks: 170

Result #13
  Sour      apples:    3
  Half-sour apples:    5
  Sweet     apples:  112
  Total apples: 120, cakes: 131, tea drinks: 131

Result #14
  Sour      apples:    3
  Half-sour apples:   28
  Sweet     apples:   79
  Total apples: 110, cakes: 144, tea drinks: 144

Result #15
  Sour      apples:    3
  Half-sour apples:   51
  Sweet     apples:   46
  Total apples: 100, cakes: 157, tea drinks: 157

Result #16
  Sour      apples:    3
  Half-sour apples:   74
  Sweet     apples:   13
  Total apples: 90, cakes: 170, tea drinks: 170

Result #17
  Sour      apples:    4
  Half-sour apples:    3
  Sweet     apples:  113
  Total apples: 120, cakes: 131, tea drinks: 131

Result #18
  Sour      apples:    4
  Half-sour apples:   26
  Sweet     apples:   80
  Total apples: 110, cakes: 144, tea drinks: 144

Result #19
  Sour      apples:    4
  Half-sour apples:   49
  Sweet     apples:   47
  Total apples: 100, cakes: 157, tea drinks: 157

Result #20
  Sour      apples:    4
  Half-sour apples:   72
  Sweet     apples:   14
  Total apples: 90, cakes: 170, tea drinks: 170

Result #21
  Sour      apples:    5
  Half-sour apples:    1
  Sweet     apples:  114
  Total apples: 120, cakes: 131, tea drinks: 131

Result #22
  Sour      apples:    5
  Half-sour apples:   24
  Sweet     apples:   81
  Total apples: 110, cakes: 144, tea drinks: 144

Result #23
  Sour      apples:    5
  Half-sour apples:   47
  Sweet     apples:   48
  Total apples: 100, cakes: 157, tea drinks: 157

Result #24
  Sour      apples:    5
  Half-sour apples:   70
  Sweet     apples:   15
  Total apples: 90, cakes: 170, tea drinks: 170

Result #25
  Sour      apples:    6
  Half-sour apples:   22
  Sweet     apples:   82
  Total apples: 110, cakes: 144, tea drinks: 144

Result #26
  Sour      apples:    6
  Half-sour apples:   45
  Sweet     apples:   49
  Total apples: 100, cakes: 157, tea drinks: 157

Result #27
  Sour      apples:    6
  Half-sour apples:   68
  Sweet     apples:   16
  Total apples: 90, cakes: 170, tea drinks: 170

Result #28
  Sour      apples:    7
  Half-sour apples:   20
  Sweet     apples:   83
  Total apples: 110, cakes: 144, tea drinks: 144

Result #29
  Sour      apples:    7
  Half-sour apples:   43
  Sweet     apples:   50
  Total apples: 100, cakes: 157, tea drinks: 157

Result #30
  Sour      apples:    7
  Half-sour apples:   66
  Sweet     apples:   17
  Total apples: 90, cakes: 170, tea drinks: 170

Result #31
  Sour      apples:    8
  Half-sour apples:   18
  Sweet     apples:   84
  Total apples: 110, cakes: 144, tea drinks: 144

Result #32
  Sour      apples:    8
  Half-sour apples:   41
  Sweet     apples:   51
  Total apples: 100, cakes: 157, tea drinks: 157

Result #33
  Sour      apples:    8
  Half-sour apples:   64
  Sweet     apples:   18
  Total apples: 90, cakes: 170, tea drinks: 170

Result #34
  Sour      apples:    9
  Half-sour apples:   16
  Sweet     apples:   85
  Total apples: 110, cakes: 144, tea drinks: 144

Result #35
  Sour      apples:    9
  Half-sour apples:   39
  Sweet     apples:   52
  Total apples: 100, cakes: 157, tea drinks: 157

Result #36
  Sour      apples:    9
  Half-sour apples:   62
  Sweet     apples:   19
  Total apples: 90, cakes: 170, tea drinks: 170

Result #37
  Sour      apples:   10
  Half-sour apples:   14
  Sweet     apples:   86
  Total apples: 110, cakes: 144, tea drinks: 144

Result #38
  Sour      apples:   10
  Half-sour apples:   37
  Sweet     apples:   53
  Total apples: 100, cakes: 157, tea drinks: 157

Result #39
  Sour      apples:   10
  Half-sour apples:   60
  Sweet     apples:   20
  Total apples: 90, cakes: 170, tea drinks: 170

Result #40
  Sour      apples:   11
  Half-sour apples:   12
  Sweet     apples:   87
  Total apples: 110, cakes: 144, tea drinks: 144

Result #41
  Sour      apples:   11
  Half-sour apples:   35
  Sweet     apples:   54
  Total apples: 100, cakes: 157, tea drinks: 157

Result #42
  Sour      apples:   11
  Half-sour apples:   58
  Sweet     apples:   21
  Total apples: 90, cakes: 170, tea drinks: 170

Result #43
  Sour      apples:   12
  Half-sour apples:   10
  Sweet     apples:   88
  Total apples: 110, cakes: 144, tea drinks: 144

Result #44
  Sour      apples:   12
  Half-sour apples:   33
  Sweet     apples:   55
  Total apples: 100, cakes: 157, tea drinks: 157

Result #45
  Sour      apples:   12
  Half-sour apples:   56
  Sweet     apples:   22
  Total apples: 90, cakes: 170, tea drinks: 170

Result #46
  Sour      apples:   13
  Half-sour apples:    8
  Sweet     apples:   89
  Total apples: 110, cakes: 144, tea drinks: 144

Result #47
  Sour      apples:   13
  Half-sour apples:   31
  Sweet     apples:   56
  Total apples: 100, cakes: 157, tea drinks: 157

Result #48
  Sour      apples:   13
  Half-sour apples:   54
  Sweet     apples:   23
  Total apples: 90, cakes: 170, tea drinks: 170

Result #49
  Sour      apples:   14
  Half-sour apples:    6
  Sweet     apples:   90
  Total apples: 110, cakes: 144, tea drinks: 144

Result #50
  Sour      apples:   14
  Half-sour apples:   29
  Sweet     apples:   57
  Total apples: 100, cakes: 157, tea drinks: 157

Result #51
  Sour      apples:   14
  Half-sour apples:   52
  Sweet     apples:   24
  Total apples: 90, cakes: 170, tea drinks: 170

Result #52
  Sour      apples:   15
  Half-sour apples:    4
  Sweet     apples:   91
  Total apples: 110, cakes: 144, tea drinks: 144

Result #53
  Sour      apples:   15
  Half-sour apples:   27
  Sweet     apples:   58
  Total apples: 100, cakes: 157, tea drinks: 157

Result #54
  Sour      apples:   15
  Half-sour apples:   50
  Sweet     apples:   25
  Total apples: 90, cakes: 170, tea drinks: 170

Result #55
  Sour      apples:   16
  Half-sour apples:    2
  Sweet     apples:   92
  Total apples: 110, cakes: 144, tea drinks: 144

Result #56
  Sour      apples:   16
  Half-sour apples:   25
  Sweet     apples:   59
  Total apples: 100, cakes: 157, tea drinks: 157

Result #57
  Sour      apples:   16
  Half-sour apples:   48
  Sweet     apples:   26
  Total apples: 90, cakes: 170, tea drinks: 170

Result #58
  Sour      apples:   17
  Half-sour apples:    0
  Sweet     apples:   93
  Total apples: 110, cakes: 144, tea drinks: 144

Result #59
  Sour      apples:   17
  Half-sour apples:   23
  Sweet     apples:   60
  Total apples: 100, cakes: 157, tea drinks: 157

Result #60
  Sour      apples:   17
  Half-sour apples:   46
  Sweet     apples:   27
  Total apples: 90, cakes: 170, tea drinks: 170

Result #61
  Sour      apples:   18
  Half-sour apples:   21
  Sweet     apples:   61
  Total apples: 100, cakes: 157, tea drinks: 157

Result #62
  Sour      apples:   18
  Half-sour apples:   44
  Sweet     apples:   28
  Total apples: 90, cakes: 170, tea drinks: 170

Result #63
  Sour      apples:   19
  Half-sour apples:   19
  Sweet     apples:   62
  Total apples: 100, cakes: 157, tea drinks: 157

Result #64
  Sour      apples:   19
  Half-sour apples:   42
  Sweet     apples:   29
  Total apples: 90, cakes: 170, tea drinks: 170

Result #65
  Sour      apples:   20
  Half-sour apples:   17
  Sweet     apples:   63
  Total apples: 100, cakes: 157, tea drinks: 157

Result #66
  Sour      apples:   20
  Half-sour apples:   40
  Sweet     apples:   30
  Total apples: 90, cakes: 170, tea drinks: 170

Result #67
  Sour      apples:   21
  Half-sour apples:   15
  Sweet     apples:   64
  Total apples: 100, cakes: 157, tea drinks: 157

Result #68
  Sour      apples:   21
  Half-sour apples:   38
  Sweet     apples:   31
  Total apples: 90, cakes: 170, tea drinks: 170

Result #69
  Sour      apples:   22
  Half-sour apples:   13
  Sweet     apples:   65
  Total apples: 100, cakes: 157, tea drinks: 157

Result #70
  Sour      apples:   22
  Half-sour apples:   36
  Sweet     apples:   32
  Total apples: 90, cakes: 170, tea drinks: 170

Result #71
  Sour      apples:   23
  Half-sour apples:   11
  Sweet     apples:   66
  Total apples: 100, cakes: 157, tea drinks: 157

Result #72
  Sour      apples:   23
  Half-sour apples:   34
  Sweet     apples:   33
  Total apples: 90, cakes: 170, tea drinks: 170

Result #73
  Sour      apples:   23
  Half-sour apples:   57
  Sweet     apples:    0
  Total apples: 80, cakes: 183, tea drinks: 183

Result #74
  Sour      apples:   24
  Half-sour apples:    9
  Sweet     apples:   67
  Total apples: 100, cakes: 157, tea drinks: 157

Result #75
  Sour      apples:   24
  Half-sour apples:   32
  Sweet     apples:   34
  Total apples: 90, cakes: 170, tea drinks: 170

Result #76
  Sour      apples:   24
  Half-sour apples:   55
  Sweet     apples:    1
  Total apples: 80, cakes: 183, tea drinks: 183

Result #77
  Sour      apples:   25
  Half-sour apples:    7
  Sweet     apples:   68
  Total apples: 100, cakes: 157, tea drinks: 157

Result #78
  Sour      apples:   25
  Half-sour apples:   30
  Sweet     apples:   35
  Total apples: 90, cakes: 170, tea drinks: 170

Result #79
  Sour      apples:   25
  Half-sour apples:   53
  Sweet     apples:    2
  Total apples: 80, cakes: 183, tea drinks: 183

Result #80
  Sour      apples:   26
  Half-sour apples:    5
  Sweet     apples:   69
  Total apples: 100, cakes: 157, tea drinks: 157

Result #81
  Sour      apples:   26
  Half-sour apples:   28
  Sweet     apples:   36
  Total apples: 90, cakes: 170, tea drinks: 170

Result #82
  Sour      apples:   26
  Half-sour apples:   51
  Sweet     apples:    3
  Total apples: 80, cakes: 183, tea drinks: 183

Result #83
  Sour      apples:   27
  Half-sour apples:    3
  Sweet     apples:   70
  Total apples: 100, cakes: 157, tea drinks: 157

Result #84
  Sour      apples:   27
  Half-sour apples:   26
  Sweet     apples:   37
  Total apples: 90, cakes: 170, tea drinks: 170

Result #85
  Sour      apples:   27
  Half-sour apples:   49
  Sweet     apples:    4
  Total apples: 80, cakes: 183, tea drinks: 183

Result #86
  Sour      apples:   28
  Half-sour apples:    1
  Sweet     apples:   71
  Total apples: 100, cakes: 157, tea drinks: 157

Result #87
  Sour      apples:   28
  Half-sour apples:   24
  Sweet     apples:   38
  Total apples: 90, cakes: 170, tea drinks: 170

Result #88
  Sour      apples:   28
  Half-sour apples:   47
  Sweet     apples:    5
  Total apples: 80, cakes: 183, tea drinks: 183

Result #89
  Sour      apples:   29
  Half-sour apples:   22
  Sweet     apples:   39
  Total apples: 90, cakes: 170, tea drinks: 170

Result #90
  Sour      apples:   29
  Half-sour apples:   45
  Sweet     apples:    6
  Total apples: 80, cakes: 183, tea drinks: 183

Result #91
  Sour      apples:   30
  Half-sour apples:   20
  Sweet     apples:   40
  Total apples: 90, cakes: 170, tea drinks: 170

Result #92
  Sour      apples:   30
  Half-sour apples:   43
  Sweet     apples:    7
  Total apples: 80, cakes: 183, tea drinks: 183

Result #93
  Sour      apples:   31
  Half-sour apples:   18
  Sweet     apples:   41
  Total apples: 90, cakes: 170, tea drinks: 170

Result #94
  Sour      apples:   31
  Half-sour apples:   41
  Sweet     apples:    8
  Total apples: 80, cakes: 183, tea drinks: 183

Result #95
  Sour      apples:   32
  Half-sour apples:   16
  Sweet     apples:   42
  Total apples: 90, cakes: 170, tea drinks: 170

Result #96
  Sour      apples:   32
  Half-sour apples:   39
  Sweet     apples:    9
  Total apples: 80, cakes: 183, tea drinks: 183

Result #97
  Sour      apples:   33
  Half-sour apples:   14
  Sweet     apples:   43
  Total apples: 90, cakes: 170, tea drinks: 170

Result #98
  Sour      apples:   33
  Half-sour apples:   37
  Sweet     apples:   10
  Total apples: 80, cakes: 183, tea drinks: 183

Result #99
  Sour      apples:   34
  Half-sour apples:   12
  Sweet     apples:   44
  Total apples: 90, cakes: 170, tea drinks: 170

Result #100
  Sour      apples:   34
  Half-sour apples:   35
  Sweet     apples:   11
  Total apples: 80, cakes: 183, tea drinks: 183

Result #101
  Sour      apples:   35
  Half-sour apples:   10
  Sweet     apples:   45
  Total apples: 90, cakes: 170, tea drinks: 170

Result #102
  Sour      apples:   35
  Half-sour apples:   33
  Sweet     apples:   12
  Total apples: 80, cakes: 183, tea drinks: 183

Result #103
  Sour      apples:   36
  Half-sour apples:    8
  Sweet     apples:   46
  Total apples: 90, cakes: 170, tea drinks: 170

Result #104
  Sour      apples:   36
  Half-sour apples:   31
  Sweet     apples:   13
  Total apples: 80, cakes: 183, tea drinks: 183

Result #105
  Sour      apples:   37
  Half-sour apples:    6
  Sweet     apples:   47
  Total apples: 90, cakes: 170, tea drinks: 170

Result #106
  Sour      apples:   37
  Half-sour apples:   29
  Sweet     apples:   14
  Total apples: 80, cakes: 183, tea drinks: 183

Result #107
  Sour      apples:   38
  Half-sour apples:    4
  Sweet     apples:   48
  Total apples: 90, cakes: 170, tea drinks: 170

Result #108
  Sour      apples:   38
  Half-sour apples:   27
  Sweet     apples:   15
  Total apples: 80, cakes: 183, tea drinks: 183

Result #109
  Sour      apples:   39
  Half-sour apples:    2
  Sweet     apples:   49
  Total apples: 90, cakes: 170, tea drinks: 170

Result #110
  Sour      apples:   39
  Half-sour apples:   25
  Sweet     apples:   16
  Total apples: 80, cakes: 183, tea drinks: 183

Result #111
  Sour      apples:   40
  Half-sour apples:    0
  Sweet     apples:   50
  Total apples: 90, cakes: 170, tea drinks: 170

Result #112
  Sour      apples:   40
  Half-sour apples:   23
  Sweet     apples:   17
  Total apples: 80, cakes: 183, tea drinks: 183

Result #113
  Sour      apples:   41
  Half-sour apples:   21
  Sweet     apples:   18
  Total apples: 80, cakes: 183, tea drinks: 183

Result #114
  Sour      apples:   42
  Half-sour apples:   19
  Sweet     apples:   19
  Total apples: 80, cakes: 183, tea drinks: 183

Result #115
  Sour      apples:   43
  Half-sour apples:   17
  Sweet     apples:   20
  Total apples: 80, cakes: 183, tea drinks: 183

Result #116
  Sour      apples:   44
  Half-sour apples:   15
  Sweet     apples:   21
  Total apples: 80, cakes: 183, tea drinks: 183

Result #117
  Sour      apples:   45
  Half-sour apples:   13
  Sweet     apples:   22
  Total apples: 80, cakes: 183, tea drinks: 183

Result #118
  Sour      apples:   46
  Half-sour apples:   11
  Sweet     apples:   23
  Total apples: 80, cakes: 183, tea drinks: 183

Result #119
  Sour      apples:   47
  Half-sour apples:    9
  Sweet     apples:   24
  Total apples: 80, cakes: 183, tea drinks: 183

Result #120
  Sour      apples:   48
  Half-sour apples:    7
  Sweet     apples:   25
  Total apples: 80, cakes: 183, tea drinks: 183

Result #121
  Sour      apples:   49
  Half-sour apples:    5
  Sweet     apples:   26
  Total apples: 80, cakes: 183, tea drinks: 183

Result #122
  Sour      apples:   50
  Half-sour apples:    3
  Sweet     apples:   27
  Total apples: 80, cakes: 183, tea drinks: 183

Result #123
  Sour      apples:   51
  Half-sour apples:    1
  Sweet     apples:   28
  Total apples: 80, cakes: 183, tea drinks: 183

Result #124
  Sour      apples:   56
  Half-sour apples:   14
  Sweet     apples:    0
  Total apples: 70, cakes: 196, tea drinks: 196

Result #125
  Sour      apples:   57
  Half-sour apples:   12
  Sweet     apples:    1
  Total apples: 70, cakes: 196, tea drinks: 196

Result #126
  Sour      apples:   58
  Half-sour apples:   10
  Sweet     apples:    2
  Total apples: 70, cakes: 196, tea drinks: 196

Result #127
  Sour      apples:   59
  Half-sour apples:    8
  Sweet     apples:    3
  Total apples: 70, cakes: 196, tea drinks: 196

Result #128
  Sour      apples:   60
  Half-sour apples:    6
  Sweet     apples:    4
  Total apples: 70, cakes: 196, tea drinks: 196

Result #129
  Sour      apples:   61
  Half-sour apples:    4
  Sweet     apples:    5
  Total apples: 70, cakes: 196, tea drinks: 196

Result #130
  Sour      apples:   62
  Half-sour apples:    2
  Sweet     apples:    6
  Total apples: 70, cakes: 196, tea drinks: 196

Result #131
  Sour      apples:   63
  Half-sour apples:    0
  Sweet     apples:    7
  Total apples: 70, cakes: 196, tea drinks: 196

260085 cases
https://ideone.com/jrmngE
language:
Common Lisp (clisp 2.49.92)
created:
11 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!