Price fraction: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,292: / Line 1,292: @@
   return values[(v * 100 - 1) / 5 | 0];
 }</lang>
+=={{header|K}}==
+Translation of the J solution:
+<lang K>
+le:- 0.96 0.91 0.86 0.81 0.76 0.71 0.66 0.61 0.56 0.51 0.46 0.41 0.36 0.31 0.26 0.21 0.16 0.11 0.06 0.0
+out: 1.00 0.98 0.94 0.90 0.86 0.82 0.78 0.74 0.70 0.66 0.62 0.58 0.54 0.50 0.44 0.38 0.32 0.26 0.18 0.1
+pf:{out@_bin[le;-x]}'
+</lang>
+Output
+<lang K>
+   pf 0.6094701 0.5003597 0.8512954 0.08951883 0.6868076
+.7 0.62 0.9 0.18 0.78
+</lang>
 =={{header|Liberty BASIC}}==
@@ Line 1,318: / Line 1,333: @@
     next
     end function
-</lang>
-=={{header|K}}==
-Translation of the J solution:
-<lang K>
-le:- 0.96 0.91 0.86 0.81 0.76 0.71 0.66 0.61 0.56 0.51 0.46 0.41 0.36 0.31 0.26 0.21 0.16 0.11 0.06 0.0
-out: 1.00 0.98 0.94 0.90 0.86 0.82 0.78 0.74 0.70 0.66 0.62 0.58 0.54 0.50 0.44 0.38 0.32 0.26 0.18 0.1
-pf:{out@_bin[le;-x]}'
-</lang>
-Output
-<lang K>
-   pf 0.6094701 0.5003597 0.8512954 0.08951883 0.6868076
-.7 0.62 0.9 0.18 0.78
 </lang>