Aberrismic theory: Difference between revisions
m →Code |
m →Code |
||
| Line 78: | Line 78: | ||
import Data.List | import Data.List | ||
-- k\edo in cents. | -- `k`\`edo` in cents. | ||
stepsOfEdoInCents :: Int -> Int -> Float | stepsOfEdoInCents :: Int -> Int -> Float | ||
stepsOfEdoInCents k edo = 1200*fromIntegral k/fromIntegral edo | stepsOfEdoInCents k edo = 1200*fromIntegral k/fromIntegral edo | ||