JoyCog

Artifact [580d5e2892]
Login

Artifact 580d5e28923f5ed04d2054193366188553f8c08655d626d6c088aad32f635de0:


(* 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]...] *)