Price fraction: Difference between revisions
Content deleted Content added
Added Kotlin |
Add Common Lisp implementation |
||
Line 752: | Line 752: | ||
[0.91 "0.98"] [0.92 "0.98"] [0.93 "0.98"] [0.94 "0.98"] [0.95 "0.98"] |
[0.91 "0.98"] [0.92 "0.98"] [0.93 "0.98"] [0.94 "0.98"] [0.95 "0.98"] |
||
[0.96 "1.00"] [0.97 "1.00"] [0.98 "1.00"] [0.99 "1.00"] [1.0 "1.00"])</pre> |
[0.96 "1.00"] [0.97 "1.00"] [0.98 "1.00"] [0.99 "1.00"] [1.0 "1.00"])</pre> |
||
=={{header|Common Lisp}}== |
|||
<lang lisp>(defun scale (value) |
|||
(cond ((minusp value) (error "invalid value: ~A" value)) |
|||
((< value 0.06) 0.10) |
|||
((< value 0.11) 0.18) |
|||
((< value 0.16) 0.26) |
|||
((< value 0.21) 0.32) |
|||
((< value 0.26) 0.38) |
|||
((< value 0.31) 0.44) |
|||
((< value 0.36) 0.50) |
|||
((< value 0.41) 0.54) |
|||
((< value 0.46) 0.58) |
|||
((< value 0.51) 0.62) |
|||
((< value 0.56) 0.66) |
|||
((< value 0.61) 0.70) |
|||
((< value 0.66) 0.74) |
|||
((< value 0.71) 0.78) |
|||
((< value 0.76) 0.82) |
|||
((< value 0.81) 0.86) |
|||
((< value 0.86) 0.90) |
|||
((< value 0.91) 0.94) |
|||
((< value 0.96) 0.98) |
|||
((< value 1.01) 1.00) |
|||
(t (error "invalid value: ~A" value))))</lang> |
|||
=={{header|D}}== |
=={{header|D}}== |