Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Finish programme. Can now supply function the two lists
- Add commentary for the state of the stack so I can understand what the |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
364c19db2082fa5761d87920cdb50251 |
| User & Date: | base@atomicules.co.uk 2014-02-07 23:42:13 |
Context
|
2014-02-07
| ||
| 23:56 | Add README check-in: 0fcbc24244 user: base@atomicules.co.uk tags: origin/master, trunk | |
| 23:42 |
Finish programme. Can now supply function the two lists
- Add commentary for the state of the stack so I can understand what the | |
|
2014-02-06
| ||
| 13:07 |
Oooh, starting to get the hang of this. Ratios takes littlegears as arg
Biggears is still defined inline, but ratios is now a proper function. check-in: e2673caf01 user: base@atomicules.co.uk tags: origin/master, trunk | |
Changes
Changes to joycog.joy.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 |
(* joycog.joy *) (* Given two lists of gear sprockets will calculate all ratios *) DEFINE (* Sort Routine *) qsort1 == [ small ] [ ] [ uncons [[first] unary2 > ] split ] [ [swap] dip cons concat ] binrec; (* Constants *) (* littlegears is now the argument to ratios *) (* littlegears == [12 13 15 17 19 21 23 26]; *) biggears == [34 50]; biggear1 == biggears first 1.0 *; biggear2 == biggears second 1.0 *; (* Ratios Routine *) ratios == dup (* Ratios1 *) dup [biggear1 swap /] map swap zip [biggear1 unitlist concat] map; swap (* Ratios2 *) dup [biggear2 swap /] map swap zip [biggear2 unitlist concat] map; (* Join *) concat (* sort *) qsort1. |
| > > > > > > > > > > > > > > > > > > > > > > > > > > > > < > | > > | > > < > > > > > > > > > > > > < < < < < > > < < < < < < < < > > > > < < < < < < < < | | | > > > > > > > > > > |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 |
(* joycog.joy *) (* ========== *) (* Given a list of two chainset gears (I.e. a compact double) and then a list of cassette sprockets, will calculate all the ratios and sort them, reporting out the results as a list of triples; the first of the triple being the ratio, the second being the cassette sprocket and the third being the chainset gear. *) (* Key for the stack notation ========================== F = Float I = Integer [...] = List *) DEFINE (* Constants *) (* ========= *) (* For reference, supplied as arguments to main programme *) (* littlegears == [12 13 15 17 19 21 23 26]; *) (* biggears == [34 50]; *) (* Sort Routine *) (* ============ *) (* From: https://pinboard.in/u:atomicules/b:f83913dc1fd8 *) qsort1 == [ small ] [ ] [ uncons [[first] unary2 > ] split ] [ [swap] dip cons concat ] binrec; (* Ratios *) (* ====== *) (* Example: > 34 [12 13 15 17 19 21 23 26] ratios. > [[2 12 34] [2 13 34] [2 15 34] [2 17 34] [1 19 34] ... ] *) ratios == (* Stack: F [I...] *) dup (* Stack: F [I...] [I...] *) rotate (* Stack: [I...] [I...] F *) dup (* Stack: [I...] [I...] F F *) unitlist [swap /] concat (* Stack: [I...] [I...] F [F swap /] *) rolldown swap (* Stack: [I...] F [I...] [F swap /] *) map (* Stack: [I...] F [F...] *) rolldown (* Stack: F [F...] [I...] *) zip (* Stack: F [[F I]...] *) swap (* Stack: [[F I]...] F *) unitlist [unitlist concat] concat (* Stack: [[F I]...] [F unitlist concat] *) map; (* Stack: [[F I I]...] *) (* Main *) (* ==== *) (* Example: > [34 50] [12 13 15 17 19 21 23 26] joycog. > [[1.30769 26 34] [1.47826 23 34] [1.61905 21 34] [1.78947 19 34] ... ] *) joycog == (* Stack: [I I] [I...] *) dup (* Stack: [I I] [I...] [I...] *) rolldown (* Stack: [I...] [I...] [I1 I2] *) dup (* Stack: [I...] [I...] [I1 I2] [I1 I2] *) first 1.0 * (* Stack: [I...] [I...] [I1 I2] I1 *) rolldown (* Stack: [I...] [I1 I2] I1 [I...] *) ratios (* Stack: [I...] [I1 I2] [[F I I]...] *) rollup (* Stack: [[F I I]...] [I...] [I1 I2] *) second 1.0 * (* Stack: [[F I I]...] [I...] I2 *) swap (* Stack: [[F I I]...] I2 [I...] *) ratios (* Stack: [[F I I]...] [[F I I]...] *) concat (* Stack: [[F I I]...] *) qsort1. (* Stack: [[F I I]...] *) |