-
Notifications
You must be signed in to change notification settings - Fork 3
/
utils.ijs
6330 lines (5476 loc) · 315 KB
/
utils.ijs
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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
NB. sha256:a0f58532fdf7cd7a621c8598a04720335f8615d05a74ff39d6d11ba1cf4c411e
NB. JOD dictionary dump: 14 Nov 2024 16:32:38
NB. Generated with JOD version; 1.1.3 - dev; 20; 31 Oct 2024 12:56:48
NB. J version: j9.6.0-beta23/j64avx2/windows/commercial/www.jsoftware.com/2024-10-30T19:38:14/clang-18-1-8/SLEEF=1
NB. JOD put dictionary path: /utils
NB.
NB. Names & DidNums on current path
NB. +-----+--------------------------------------+
NB. |utils|73078440483217086591179073868909861566|
NB. +-----+--------------------------------------+
9!:41 [ 1 NB.{*JOD*}
cocurrent 'base' NB.{*JOD*}
sonl_z_=: 'sonl__MK__JODobj i.4' NB.{*JOD*}
showpass_z_=:] [ 1!:2&2 NB.{*JOD*}
SOLOCALE_z_=:":>SO__JODobj NB.{*JOD*}
soput_z_=:SOLOCALE&put NB.{*JOD*}
soclear_z_=: '0 0 $ clearso__MK__JODobj 0' NB.{*JOD*}
cocurrent SO__JODobj NB.{*JOD*}
BASE64=:'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'
BOM=:239 187 191{a.
CLASSAUTHOR=:'John D. Baker -- bakerjd99@gmail.com'
CPIANNUAL=:2 95$9.90000000000000036 10 10.0999999999999996 10.9000000000000004 12.8000000000000007 15.0999999999999996 17.3000000000000007 20 17.8999999999999986 16.8000000000000007 17.1000000000000014 17.1000000000000014 17.5 17.6999999999999993 17.3999999999999986 17.1000000000000014 17.1000000000000014 16.6999999999999993 15.1999999999999993 13.6999999999999993 13 13.4000000000000004 13.6999999999999993 13.9000000000000004 14.4000000000000004 14.0999999999999996 13.9000000000000004 14 14.6999999999999993 16.3000000000000007 17.3000000000000007 17.6000000000000014 18 19.5 22.3000000000000007 24.1000000000000014 23.8000000000000007 24.1000000000000014 26 26.5 26.6999999999999993 26.8999999999999986 26.8000000000000007 27.1999999999999993 28.1000000000000014 28.8999999999999986 29.1000000000000014 29.6000000000000014 29.8999999999999986 30.1999999999999993 30.6000000000000014 31 31.5 32.3999999999999986 33.3999999999999986 34.7999999999999972 36.7000000000000028 38.7999999999999972 40.5 41.7999999999999972 44.3999999999999986 49.2999999999999972 53.7999999999999972 56.8999999999999986 60.6000000000000014 65.2000000000000028 72.5999999999999943 82.4000000000000057 90.9000000000000057 96.5 99.5999999999999943 103.900000000000006 107.599999999999994 109.599999999999994 113.599999999999994 118.299999999999997 124 130.699999999999989 136.199999999999989 140.300000000000011 144.5 148.199999999999989 152.400000000000006 156.900000000000006 160.5 163 166.599999999999994 172.199999999999989 177.099999999999994 179.900000000000006 184 188.900000000000006 195.300000000000011 201.599999999999994 207.342000000000013 1913 1914 1915 1916 1917 1918 1919 1920 1921 1922 1923 1924 1925 1926 1927 1928 1929 1930 1931 1932 1933 1934 1935 1936 1937 1938 1939 1940 1941 1942 1943 1944 1945 1946 1947 1948 1949 1950 1951 1952 1953 1954 1955 1956 1957 1958 1959 1960 1961 1962 1963 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974 1975 1976 1977 1978 1979 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007
CR=:13{a.
CRLF=:13 10{a.
CUUR0000SA0=:1286 3$'Year';'Period';'Value';'1913';'Jan';9.80000000000000071;'1913';'Feb';9.80000000000000071;'1913';'Mar';9.80000000000000071;'1913';'Apr';9.80000000000000071;'1913';'May';9.69999999999999929;'1913';'Jun';9.80000000000000071;'1913';'Jul';9.90000000000000036;'1913';'Aug';9.90000000000000036;'1913';'Sep';10;'1913';'Oct';10;'1913';'Nov';10.0999999999999996;'1913';'Dec';10;'1913';'Annual';9.90000000000000036;'1914';'Jan';10;'1914';'Feb';9.90000000000000036;'1914';'Mar';9.90000000000000036;'1914';'Apr';9.80000000000000071;'1914';'May';9.90000000000000036;'1914';'Jun';9.90000000000000036;'1914';'Jul';10;'1914';'Aug';10.1999999999999993;'1914';'Sep';10.1999999999999993;'1914';'Oct';10.0999999999999996;'1914';'Nov';10.1999999999999993;'1914';'Dec';10.0999999999999996;'1914';'Annual';10;'1915';'Jan';10.0999999999999996;'1915';'Feb';10;'1915';'Mar';9.90000000000000036;'1915';'Apr';10;'1915';'May';10.0999999999999996;'1915';'Jun';10.0999999999999996;'1915';'Jul';10.0999999999999996;'1915';'Aug';10.0999999999999996;'1915';'Sep';10.0999999999999996;'1915';'Oct';10.1999999999999993;'1915';'Nov';10.3000000000000007;'1915';'Dec';10.3000000000000007;'1915';'Annual';10.0999999999999996;'1916';'Jan';10.4000000000000004;'1916';'Feb';10.4000000000000004;'1916';'Mar';10.5;'1916';'Apr';10.5999999999999996;'1916';'May';10.6999999999999993;'1916';'Jun';10.8000000000000007;'1916';'Jul';10.8000000000000007;'1916';'Aug';10.9000000000000004;'1916';'Sep';11.0999999999999996;'1916';'Oct';11.3000000000000007;'1916';'Nov';11.5;'1916';'Dec';11.5999999999999996;'1916';'Annual';10.9000000000000004;'1917';'Jan';11.6999999999999993;'1917';'Feb';12;'1917';'Mar';12;'1917';'Apr';12.5999999999999996;'1917';'May';12.8000000000000007;'1917';'Jun';13;'1917';'Jul';12.8000000000000007;'1917';'Aug';13;'1917';'Sep';13.3000000000000007;'1917';'Oct';13.5;'1917';'Nov';13.5;'1917';'Dec';13.6999999999999993;'1917';'Annual';12.8000000000000007;'1918';'Jan';14;'1918';'Feb';14.0999999999999996;'1918';'Mar';14;'1918';'Apr';14.1999999999999993;'1918';'May';14.5;'1918';'Jun';14.6999999999999993;'1918';'Jul';15.0999999999999996;'1918';'Aug';15.4000000000000004;'1918';'Sep';15.6999999999999993;'1918';'Oct';16;'1918';'Nov';16.3000000000000007;'1918';'Dec';16.5;'1918';'Annual';15.0999999999999996;'1919';'Jan';16.5;'1919';'Feb';16.1999999999999993;'1919';'Mar';16.3999999999999986;'1919';'Apr';16.6999999999999993;'1919';'May';16.8999999999999986;'1919';'Jun';16.8999999999999986;'1919';'Jul';17.3999999999999986;'1919';'Aug';17.6999999999999993;'1919';'Sep';17.8000000000000007;'1919';'Oct';18.1000000000000014;'1919';'Nov';18.5;'1919';'Dec';18.8999999999999986;'1919';'Annual';17.3000000000000007;'1920';'Jan';19.3000000000000007;'1920';'Feb';19.5;'1920';'Mar';19.6999999999999993;'1920';'Apr';20.3000000000000007;'1920';'May';20.6000000000000014;'1920';'Jun';20.8999999999999986;'1920';'Jul';20.8000000000000007;'1920';'Aug';20.3000000000000007;'1920';'Sep';20;'1920';'Oct';19.8999999999999986;'1920';'Nov';19.8000000000000007;'1920';'Dec';19.3999999999999986;'1920';'Annual';20;'1921';'Jan';19;'1921';'Feb';18.3999999999999986;'1921';'Mar';18.3000000000000007;'1921';'Apr';18.1000000000000014;'1921';'May';17.6999999999999993;'1921';'Jun';17.6000000000000014;'1921';'Jul';17.6999999999999993;'1921';'Aug';17.6999999999999993;'1921';'Sep';17.5;'1921';'Oct';17.5;'1921';'Nov';17.3999999999999986;'1921';'Dec';17.3000000000000007;'1921';'Annual';17.8999999999999986;'1922';'Jan';16.8999999999999986;'1922';'Feb';16.8999999999999986;'1922';'Mar';16.6999999999999993;'1922';'Apr';16.6999999999999993;'1922';'May';16.6999999999999993;'1922';'Jun';16.6999999999999993;'1922';'Jul';16.8000000000000007;'1922';'Aug';16.6000000000000014;'1922';'Sep';16.6000000000000014;'1922';'Oct';16.6999999999999993;'1922';'Nov';16.8000000000000007;'1922';'Dec';16.8999999999999986;'1922';'Annual';16.8000000000000007;'1923';'Jan';16.8000000000000007;'1923';'Feb';16.8000000000000007;'1923';'Mar';16.8000000000000007;'1923';'Apr';16.8999999999999986;'1923';'May';16.8999999999999986;'1923';'Jun';17;'1923';'Jul';17.1999999999999993;'1923';'Aug';17.1000000000000014;'1923';'Sep';17.1999999999999993;'1923';'Oct';17.3000000000000007;'1923';'Nov';17.3000000000000007;'1923';'Dec';17.3000000000000007;'1923';'Annual';17.1000000000000014;'1924';'Jan';17.3000000000000007;'1924';'Feb';17.1999999999999993;'1924';'Mar';17.1000000000000014;'1924';'Apr';17;'1924';'May';17;'1924';'Jun';17;'1924';'Jul';17.1000000000000014;'1924';'Aug';17;'1924';'Sep';17.1000000000000014;'1924';'Oct';17.1999999999999993;'1924';'Nov';17.1999999999999993;'1924';'Dec';17.3000000000000007;'1924';'Annual';17.1000000000000014;'1925';'Jan';17.3000000000000007;'1925';'Feb';17.1999999999999993;'1925';'Mar';17.3000000000000007;'1925';'Apr';17.1999999999999993;'1925';'May';17.3000000000000007;'1925';'Jun';17.5;'1925';'Jul';17.6999999999999993;'1925';'Aug';17.6999999999999993;'1925';'Sep';17.6999999999999993;'1925';'Oct';17.6999999999999993;'1925';'Nov';18;'1925';'Dec';17.8999999999999986;'1925';'Annual';17.5;'1926';'Jan';17.8999999999999986;'1926';'Feb';17.8999999999999986;'1926';'Mar';17.8000000000000007;'1926';'Apr';17.8999999999999986;'1926';'May';17.8000000000000007;'1926';'Jun';17.6999999999999993;'1926';'Jul';17.5;'1926';'Aug';17.3999999999999986;'1926';'Sep';17.5;'1926';'Oct';17.6000000000000014;'1926';'Nov';17.6999999999999993;'1926';'Dec';17.6999999999999993;'1926';'Annual';17.6999999999999993;'1927';'Jan';17.5;'1927';'Feb';17.3999999999999986;'1927';'Mar';17.3000000000000007;'1927';'Apr';17.3000000000000007;'1927';'May';17.3999999999999986;'1927';'Jun';17.6000000000000014;'1927';'Jul';17.3000000000000007;'1927';'Aug';17.1999999999999993;'1927';'Sep';17.3000000000000007;'1927';'Oct';17.3999999999999986;'1927';'Nov';17.3000000000000007;'1927';'Dec';17.3000000000000007;'1927';'Annual';17.3999999999999986;'1928';'Jan';17.3000000000000007;'1928';'Feb';17.1000000000000014;'1928';'Mar';17.1000000000000014;'1928';'Apr';17.1000000000000014;'1928';'May';17.1999999999999993;'1928';'Jun';17.1000000000000014;'1928';'Jul';17.1000000000000014;'1928';'Aug';17.1000000000000014;'1928';'Sep';17.3000000000000007;'1928';'Oct';17.1999999999999993;'1928';'Nov';17.1999999999999993;'1928';'Dec';17.1000000000000014;'1928';'Annual';17.1000000000000014;'1929';'Jan';17.1000000000000014;'1929';'Feb';17.1000000000000014;'1929';'Mar';17;'1929';'Apr';16.8999999999999986;'1929';'May';17;'1929';'Jun';17.1000000000000014;'1929';'Jul';17.3000000000000007;'1929';'Aug';17.3000000000000007;'1929';'Sep';17.3000000000000007;'1929';'Oct';17.3000000000000007;'1929';'Nov';17.3000000000000007;'1929';'Dec';17.1999999999999993;'1929';'Annual';17.1000000000000014;'1930';'Jan';17.1000000000000014;'1930';'Feb';17;'1930';'Mar';16.8999999999999986;'1930';'Apr';17;'1930';'May';16.8999999999999986;'1930';'Jun';16.8000000000000007;'1930';'Jul';16.6000000000000014;'1930';'Aug';16.5;'1930';'Sep';16.6000000000000014;'1930';'Oct';16.5;'1930';'Nov';16.3999999999999986;'1930';'Dec';16.1000000000000014;'1930';'Annual';16.6999999999999993;'1931';'Jan';15.9000000000000004;'1931';'Feb';15.6999999999999993;'1931';'Mar';15.5999999999999996;'1931';'Apr';15.5;'1931';'May';15.3000000000000007;'1931';'Jun';15.0999999999999996;'1931';'Jul';15.0999999999999996;'1931';'Aug';15.0999999999999996;'1931';'Sep';15;'1931';'Oct';14.9000000000000004;'1931';'Nov';14.6999999999999993;'1931';'Dec';14.5999999999999996;'1931';'Annual';15.1999999999999993;'1932';'Jan';14.3000000000000007;'1932';'Feb';14.0999999999999996;'1932';'Mar';14;'1932';'Apr';13.9000000000000004;'1932';'May';13.6999999999999993;'1932';'Jun';13.5999999999999996;'1932';'Jul';13.5999999999999996;'1932';'Aug';13.5;'1932';'Sep';13.4000000000000004;'1932';'Oct';13.3000000000000007;'1932';'Nov';13.1999999999999993;'1932';'Dec';13.0999999999999996;'1932';'Annual';13.6999999999999993;'1933';'Jan';12.9000000000000004;'1933';'Feb';12.6999999999999993;'1933';'Mar';12.5999999999999996;'1933';'Apr';12.5999999999999996;'1933';'May';12.5999999999999996;'1933';'Jun';12.6999999999999993;'1933';'Jul';13.0999999999999996;'1933';'Aug';13.1999999999999993;'1933';'Sep';13.1999999999999993;'1933';'Oct';13.1999999999999993;'1933';'Nov';13.1999999999999993;'1933';'Dec';13.1999999999999993;'1933';'Annual';13;'1934';'Jan';13.1999999999999993;'1934';'Feb';13.3000000000000007;'1934';'Mar';13.3000000000000007;'1934';'Apr';13.3000000000000007;'1934';'May';13.3000000000000007;'1934';'Jun';13.4000000000000004;'1934';'Jul';13.4000000000000004;'1934';'Aug';13.4000000000000004;'1934';'Sep';13.5999999999999996;'1934';'Oct';13.5;'1934';'Nov';13.5;'1934';'Dec';13.4000000000000004;'1934';'Annual';13.4000000000000004;'1935';'Jan';13.5999999999999996;'1935';'Feb';13.6999999999999993;'1935';'Mar';13.6999999999999993;'1935';'Apr';13.8000000000000007;'1935';'May';13.8000000000000007;'1935';'Jun';13.6999999999999993;'1935';'Jul';13.6999999999999993;'1935';'Aug';13.6999999999999993;'1935';'Sep';13.6999999999999993;'1935';'Oct';13.6999999999999993;'1935';'Nov';13.8000000000000007;'1935';'Dec';13.8000000000000007;'1935';'Annual';13.6999999999999993;'1936';'Jan';13.8000000000000007;'1936';'Feb';13.8000000000000007;'1936';'Mar';13.6999999999999993;'1936';'Apr';13.6999999999999993;'1936';'May';13.6999999999999993;'1936';'Jun';13.8000000000000007;'1936';'Jul';13.9000000000000004;'1936';'Aug';14;'1936';'Sep';14;'1936';'Oct';14;'1936';'Nov';14;'1936';'Dec';14;'1936';'Annual';13.9000000000000004;'1937';'Jan';14.0999999999999996;'1937';'Feb';14.0999999999999996;'1937';'Mar';14.1999999999999993;'1937';'Apr';14.3000000000000007;'1937';'May';14.4000000000000004;'1937';'Jun';14.4000000000000004;'1937';'Jul';14.5;'1937';'Aug';14.5;'1937';'Sep';14.5999999999999996;'1937';'Oct';14.5999999999999996;'1937';'Nov';14.5;'1937';'Dec';14.4000000000000004;'1937';'Annual';14.4000000000000004;'1938';'Jan';14.1999999999999993;'1938';'Feb';14.0999999999999996;'1938';'Mar';14.0999999999999996;'1938';'Apr';14.1999999999999993;'1938';'May';14.0999999999999996;'1938';'Jun';14.0999999999999996;'1938';'Jul';14.0999999999999996;'1938';'Aug';14.0999999999999996;'1938';'Sep';14.0999999999999996;'1938';'Oct';14;'1938';'Nov';14;'1938';'Dec';14;'1938';'Annual';14.0999999999999996;'1939';'Jan';14;'1939';'Feb';13.9000000000000004;'1939';'Mar';13.9000000000000004;'1939';'Apr';13.8000000000000007;'1939';'May';13.8000000000000007;'1939';'Jun';13.8000000000000007;'1939';'Jul';13.8000000000000007;'1939';'Aug';13.8000000000000007;'1939';'Sep';14.0999999999999996;'1939';'Oct';14;'1939';'Nov';14;'1939';'Dec';14;'1939';'Annual';13.9000000000000004;'1940';'Jan';13.9000000000000004;'1940';'Feb';14;'1940';'Mar';14;'1940';'Apr';14;'1940';'May';14;'1940';'Jun';14.0999999999999996;'1940';'Jul';14;'1940';'Aug';14;'1940';'Sep';14;'1940';'Oct';14;'1940';'Nov';14;'1940';'Dec';14.0999999999999996;'1940';'Annual';14;'1941';'Jan';14.0999999999999996;'1941';'Feb';14.0999999999999996;'1941';'Mar';14.1999999999999993;'1941';'Apr';14.3000000000000007;'1941';'May';14.4000000000000004;'1941';'Jun';14.6999999999999993;'1941';'Jul';14.6999999999999993;'1941';'Aug';14.9000000000000004;'1941';'Sep';15.0999999999999996;'1941';'Oct';15.3000000000000007;'1941';'Nov';15.4000000000000004;'1941';'Dec';15.5;'1941';'Annual';14.6999999999999993;'1942';'Jan';15.6999999999999993;'1942';'Feb';15.8000000000000007;'1942';'Mar';16;'1942';'Apr';16.1000000000000014;'1942';'May';16.3000000000000007;'1942';'Jun';16.3000000000000007;'1942';'Jul';16.3999999999999986;'1942';'Aug';16.5;'1942';'Sep';16.5;'1942';'Oct';16.6999999999999993;'1942';'Nov';16.8000000000000007;'1942';'Dec';16.8999999999999986;'1942';'Annual';16.3000000000000007;'1943';'Jan';16.8999999999999986;'1943';'Feb';16.8999999999999986;'1943';'Mar';17.1999999999999993;'1943';'Apr';17.3999999999999986;'1943';'May';17.5;'1943';'Jun';17.5;'1943';'Jul';17.3999999999999986;'1943';'Aug';17.3000000000000007;'1943';'Sep';17.3999999999999986;'1943';'Oct';17.3999999999999986;'1943';'Nov';17.3999999999999986;'1943';'Dec';17.3999999999999986;'1943';'Annual';17.3000000000000007;'1944';'Jan';17.3999999999999986;'1944';'Feb';17.3999999999999986;'1944';'Mar';17.3999999999999986;'1944';'Apr';17.5;'1944';'May';17.5;'1944';'Jun';17.6000000000000014;'1944';'Jul';17.6999999999999993;'1944';'Aug';17.6999999999999993;'1944';'Sep';17.6999999999999993;'1944';'Oct';17.6999999999999993;'1944';'Nov';17.6999999999999993;'1944';'Dec';17.8000000000000007;'1944';'Annual';17.6000000000000014;'1945';'Jan';17.8000000000000007;'1945';'Feb';17.8000000000000007;'1945';'Mar';17.8000000000000007;'1945';'Apr';17.8000000000000007;'1945';'May';17.8999999999999986;'1945';'Jun';18.1000000000000014;'1945';'Jul';18.1000000000000014;'1945';'Aug';18.1000000000000014;'1945';'Sep';18.1000000000000014;'1945';'Oct';18.1000000000000014;'1945';'Nov';18.1000000000000014;'1945';'Dec';18.1999999999999993;'1945';'Annual';18;'1946';'Jan';18.1999999999999993;'1946';'Feb';18.1000000000000014;'1946';'Mar';18.3000000000000007;'1946';'Apr';18.3999999999999986;'1946';'May';18.5;'1946';'Jun';18.6999999999999993;'1946';'Jul';19.8000000000000007;'1946';'Aug';20.1999999999999993;'1946';'Sep';20.3999999999999986;'1946';'Oct';20.8000000000000007;'1946';'Nov';21.3000000000000007;'1946';'Dec';21.5;'1946';'Annual';19.5;'1947';'Jan';21.5;'1947';'Feb';21.5;'1947';'Mar';21.8999999999999986;'1947';'Apr';21.8999999999999986;'1947';'May';21.8999999999999986;'1947';'Jun';22;'1947';'Jul';22.1999999999999993;'1947';'Aug';22.5;'1947';'Sep';23;'1947';'Oct';23;'1947';'Nov';23.1000000000000014;'1947';'Dec';23.3999999999999986;'1947';'Annual';22.3000000000000007;'1948';'Jan';23.6999999999999993;'1948';'Feb';23.5;'1948';'Mar';23.3999999999999986;'1948';'Apr';23.8000000000000007;'1948';'May';23.8999999999999986;'1948';'Jun';24.1000000000000014;'1948';'Jul';24.3999999999999986;'1948';'Aug';24.5;'1948';'Sep';24.5;'1948';'Oct';24.3999999999999986;'1948';'Nov';24.1999999999999993;'1948';'Dec';24.1000000000000014;'1948';'Annual';24.1000000000000014;'1949';'Jan';24;'1949';'Feb';23.8000000000000007;'1949';'Mar';23.8000000000000007;'1949';'Apr';23.8999999999999986;'1949';'May';23.8000000000000007;'1949';'Jun';23.8999999999999986;'1949';'Jul';23.6999999999999993;'1949';'Aug';23.8000000000000007;'1949';'Sep';23.8999999999999986;'1949';'Oct';23.6999999999999993;'1949';'Nov';23.8000000000000007;'1949';'Dec';23.6000000000000014;'1949';'Annual';23.8000000000000007;'1950';'Jan';23.5;'1950';'Feb';23.5;'1950';'Mar';23.6000000000000014;'1950';'Apr';23.6000000000000014;'1950';'May';23.6999999999999993;'1950';'Jun';23.8000000000000007;'1950';'Jul';24.1000000000000014;'1950';'Aug';24.3000000000000007;'1950';'Sep';24.3999999999999986;'1950';'Oct';24.6000000000000014;'1950';'Nov';24.6999999999999993;'1950';'Dec';25;'1950';'Annual';24.1000000000000014;'1951';'Jan';25.3999999999999986;'1951';'Feb';25.6999999999999993;'1951';'Mar';25.8000000000000007;'1951';'Apr';25.8000000000000007;'1951';'May';25.8999999999999986;'1951';'Jun';25.8999999999999986;'1951';'Jul';25.8999999999999986;'1951';'Aug';25.8999999999999986;'1951';'Sep';26.1000000000000014;'1951';'Oct';26.1999999999999993;'1951';'Nov';26.3999999999999986;'1951';'Dec';26.5;'1951';'Annual';26;'1952';'Jan';26.5;'1952';'Feb';26.3000000000000007;'1952';'Mar';26.3000000000000007;'1952';'Apr';26.3999999999999986;'1952';'May';26.3999999999999986;'1952';'Jun';26.5;'1952';'Jul';26.6999999999999993;'1952';'Aug';26.6999999999999993;'1952';'Sep';26.6999999999999993;'1952';'Oct';26.6999999999999993;'1952';'Nov';26.6999999999999993;'1952';'Dec';26.6999999999999993;'1952';'Annual';26.5;'1953';'Jan';26.6000000000000014;'1953';'Feb';26.5;'1953';'Mar';26.6000000000000014;'1953';'Apr';26.6000000000000014;'1953';'May';26.6999999999999993;'1953';'Jun';26.8000000000000007;'1953';'Jul';26.8000000000000007;'1953';'Aug';26.8999999999999986;'1953';'Sep';26.8999999999999986;'1953';'Oct';27;'1953';'Nov';26.8999999999999986;'1953';'Dec';26.8999999999999986;'1953';'Annual';26.6999999999999993;'1954';'Jan';26.8999999999999986;'1954';'Feb';26.8999999999999986;'1954';'Mar';26.8999999999999986;'1954';'Apr';26.8000000000000007;'1954';'May';26.8999999999999986;'1954';'Jun';26.8999999999999986;'1954';'Jul';26.8999999999999986;'1954';'Aug';26.8999999999999986;'1954';'Sep';26.8000000000000007;'1954';'Oct';26.8000000000000007;'1954';'Nov';26.8000000000000007;'1954';'Dec';26.6999999999999993;'1954';'Annual';26.8999999999999986;'1955';'Jan';26.6999999999999993;'1955';'Feb';26.6999999999999993;'1955';'Mar';26.6999999999999993;'1955';'Apr';26.6999999999999993;'1955';'May';26.6999999999999993;'1955';'Jun';26.6999999999999993;'1955';'Jul';26.8000000000000007;'1955';'Aug';26.8000000000000007;'1955';'Sep';26.8999999999999986;'1955';'Oct';26.8999999999999986;'1955';'Nov';26.8999999999999986;'1955';'Dec';26.8000000000000007;'1955';'Annual';26.8000000000000007;'1956';'Jan';26.8000000000000007;'1956';'Feb';26.8000000000000007;'1956';'Mar';26.8000000000000007;'1956';'Apr';26.8999999999999986;'1956';'May';27;'1956';'Jun';27.1999999999999993;'1956';'Jul';27.3999999999999986;'1956';'Aug';27.3000000000000007;'1956';'Sep';27.3999999999999986;'1956';'Oct';27.5;'1956';'Nov';27.5;'1956';'Dec';27.6000000000000014;'1956';'Annual';27.1999999999999993;'1957';'Jan';27.6000000000000014;'1957';'Feb';27.6999999999999993;'1957';'Mar';27.8000000000000007;'1957';'Apr';27.8999999999999986;'1957';'May';28;'1957';'Jun';28.1000000000000014;'1957';'Jul';28.3000000000000007;'1957';'Aug';28.3000000000000007;'1957';'Sep';28.3000000000000007;'1957';'Oct';28.3000000000000007;'1957';'Nov';28.3999999999999986;'1957';'Dec';28.3999999999999986;'1957';'Annual';28.1000000000000014;'1958';'Jan';28.6000000000000014;'1958';'Feb';28.6000000000000014;'1958';'Mar';28.8000000000000007;'1958';'Apr';28.8999999999999986;'1958';'May';28.8999999999999986;'1958';'Jun';28.8999999999999986;'1958';'Jul';29;'1958';'Aug';28.8999999999999986;'1958';'Sep';28.8999999999999986;'1958';'Oct';28.8999999999999986;'1958';'Nov';29;'1958';'Dec';28.8999999999999986;'1958';'Annual';28.8999999999999986;'1959';'Jan';29;'1959';'Feb';28.8999999999999986;'1959';'Mar';28.8999999999999986;'1959';'Apr';29;'1959';'May';29;'1959';'Jun';29.1000000000000014;'1959';'Jul';29.1999999999999993;'1959';'Aug';29.1999999999999993;'1959';'Sep';29.3000000000000007;'1959';'Oct';29.3999999999999986;'1959';'Nov';29.3999999999999986;'1959';'Dec';29.3999999999999986;'1959';'Annual';29.1000000000000014;'1960';'Jan';29.3000000000000007;'1960';'Feb';29.3999999999999986;'1960';'Mar';29.3999999999999986;'1960';'Apr';29.5;'1960';'May';29.5;'1960';'Jun';29.6000000000000014;'1960';'Jul';29.6000000000000014;'1960';'Aug';29.6000000000000014;'1960';'Sep';29.6000000000000014;'1960';'Oct';29.8000000000000007;'1960';'Nov';29.8000000000000007;'1960';'Dec';29.8000000000000007;'1960';'Annual';29.6000000000000014;'1961';'Jan';29.8000000000000007;'1961';'Feb';29.8000000000000007;'1961';'Mar';29.8000000000000007;'1961';'Apr';29.8000000000000007;'1961';'May';29.8000000000000007;'1961';'Jun';29.8000000000000007;'1961';'Jul';30;'1961';'Aug';29.8999999999999986;'1961';'Sep';30;'1961';'Oct';30;'1961';'Nov';30;'1961';'Dec';30;'1961';'Annual';29.8999999999999986;'1962';'Jan';30;'1962';'Feb';30.1000000000000014;'1962';'Mar';30.1000000000000014;'1962';'Apr';30.1999999999999993;'1962';'May';30.1999999999999993;'1962';'Jun';30.1999999999999993;'1962';'Jul';30.3000000000000007;'1962';'Aug';30.3000000000000007;'1962';'Sep';30.3999999999999986;'1962';'Oct';30.3999999999999986;'1962';'Nov';30.3999999999999986;'1962';'Dec';30.3999999999999986;'1962';'Annual';30.1999999999999993;'1963';'Jan';30.3999999999999986;'1963';'Feb';30.3999999999999986;'1963';'Mar';30.5;'1963';'Apr';30.5;'1963';'May';30.5;'1963';'Jun';30.6000000000000014;'1963';'Jul';30.6999999999999993;'1963';'Aug';30.6999999999999993;'1963';'Sep';30.6999999999999993;'1963';'Oct';30.8000000000000007;'1963';'Nov';30.8000000000000007;'1963';'Dec';30.8999999999999986;'1963';'Annual';30.6000000000000014;'1964';'Jan';30.8999999999999986;'1964';'Feb';30.8999999999999986;'1964';'Mar';30.8999999999999986;'1964';'Apr';30.8999999999999986;'1964';'May';30.8999999999999986;'1964';'Jun';31;'1964';'Jul';31.1000000000000014;'1964';'Aug';31;'1964';'Sep';31.1000000000000014;'1964';'Oct';31.1000000000000014;'1964';'Nov';31.1999999999999993;'1964';'Dec';31.1999999999999993;'1964';'Annual';31;'1965';'Jan';31.1999999999999993;'1965';'Feb';31.1999999999999993;'1965';'Mar';31.3000000000000007;'1965';'Apr';31.3999999999999986;'1965';'May';31.3999999999999986;'1965';'Jun';31.6000000000000014;'1965';'Jul';31.6000000000000014;'1965';'Aug';31.6000000000000014;'1965';'Sep';31.6000000000000014;'1965';'Oct';31.6999999999999993;'1965';'Nov';31.6999999999999993;'1965';'Dec';31.8000000000000007;'1965';'Annual';31.5;'1966';'Jan';31.8000000000000007;'1966';'Feb';32;'1966';'Mar';32.1000000000000014;'1966';'Apr';32.2999999999999972;'1966';'May';32.2999999999999972;'1966';'Jun';32.3999999999999986;'1966';'Jul';32.5;'1966';'Aug';32.7000000000000028;'1966';'Sep';32.7000000000000028;'1966';'Oct';32.8999999999999986;'1966';'Nov';32.8999999999999986;'1966';'Dec';32.8999999999999986;'1966';'Annual';32.3999999999999986;'1967';'Jan';32.8999999999999986;'1967';'Feb';32.8999999999999986;'1967';'Mar';33;'1967';'Apr';33.1000000000000014;'1967';'May';33.2000000000000028;'1967';'Jun';33.2999999999999972;'1967';'Jul';33.3999999999999986;'1967';'Aug';33.5;'1967';'Sep';33.6000000000000014;'1967';'Oct';33.7000000000000028;'1967';'Nov';33.7999999999999972;'1967';'Dec';33.8999999999999986;'1967';'Annual';33.3999999999999986;'1968';'Jan';34.1000000000000014;'1968';'Feb';34.2000000000000028;'1968';'Mar';34.2999999999999972;'1968';'Apr';34.3999999999999986;'1968';'May';34.5;'1968';'Jun';34.7000000000000028;'1968';'Jul';34.8999999999999986;'1968';'Aug';35;'1968';'Sep';35.1000000000000014;'1968';'Oct';35.2999999999999972;'1968';'Nov';35.3999999999999986;'1968';'Dec';35.5;'1968';'Annual';34.7999999999999972;'1969';'Jan';35.6000000000000014;'1969';'Feb';35.7999999999999972;'1969';'Mar';36.1000000000000014;'1969';'Apr';36.2999999999999972;'1969';'May';36.3999999999999986;'1969';'Jun';36.6000000000000014;'1969';'Jul';36.7999999999999972;'1969';'Aug';37;'1969';'Sep';37.1000000000000014;'1969';'Oct';37.2999999999999972;'1969';'Nov';37.5;'1969';'Dec';37.7000000000000028;'1969';'Annual';36.7000000000000028;'1970';'Jan';37.7999999999999972;'1970';'Feb';38;'1970';'Mar';38.2000000000000028;'1970';'Apr';38.5;'1970';'May';38.6000000000000014;'1970';'Jun';38.7999999999999972;'1970';'Jul';39;'1970';'Aug';39;'1970';'Sep';39.2000000000000028;'1970';'Oct';39.3999999999999986;'1970';'Nov';39.6000000000000014;'1970';'Dec';39.7999999999999972;'1970';'Annual';38.7999999999999972;'1971';'Jan';39.7999999999999972;'1971';'Feb';39.8999999999999986;'1971';'Mar';40;'1971';'Apr';40.1000000000000014;'1971';'May';40.2999999999999972;'1971';'Jun';40.6000000000000014;'1971';'Jul';40.7000000000000028;'1971';'Aug';40.7999999999999972;'1971';'Sep';40.7999999999999972;'1971';'Oct';40.8999999999999986;'1971';'Nov';40.8999999999999986;'1971';'Dec';41.1000000000000014;'1971';'Annual';40.5;'1972';'Jan';41.1000000000000014;'1972';'Feb';41.2999999999999972;'1972';'Mar';41.3999999999999986;'1972';'Apr';41.5;'1972';'May';41.6000000000000014;'1972';'Jun';41.7000000000000028;'1972';'Jul';41.8999999999999986;'1972';'Aug';42;'1972';'Sep';42.1000000000000014;'1972';'Oct';42.2999999999999972;'1972';'Nov';42.3999999999999986;'1972';'Dec';42.5;'1972';'Annual';41.7999999999999972;'1973';'Jan';42.6000000000000014;'1973';'Feb';42.8999999999999986;'1973';'Mar';43.2999999999999972;'1973';'Apr';43.6000000000000014;'1973';'May';43.8999999999999986;'1973';'Jun';44.2000000000000028;'1973';'Jul';44.2999999999999972;'1973';'Aug';45.1000000000000014;'1973';'Sep';45.2000000000000028;'1973';'Oct';45.6000000000000014;'1973';'Nov';45.8999999999999986;'1973';'Dec';46.2000000000000028;'1973';'Annual';44.3999999999999986;'1974';'Jan';46.6000000000000014;'1974';'Feb';47.2000000000000028;'1974';'Mar';47.7999999999999972;'1974';'Apr';48;'1974';'May';48.6000000000000014;'1974';'Jun';49;'1974';'Jul';49.3999999999999986;'1974';'Aug';50;'1974';'Sep';50.6000000000000014;'1974';'Oct';51.1000000000000014;'1974';'Nov';51.5;'1974';'Dec';51.8999999999999986;'1974';'Annual';49.2999999999999972;'1975';'Jan';52.1000000000000014;'1975';'Feb';52.5;'1975';'Mar';52.7000000000000028;'1975';'Apr';52.8999999999999986;'1975';'May';53.2000000000000028;'1975';'Jun';53.6000000000000014;'1975';'Jul';54.2000000000000028;'1975';'Aug';54.2999999999999972;'1975';'Sep';54.6000000000000014;'1975';'Oct';54.8999999999999986;'1975';'Nov';55.2999999999999972;'1975';'Dec';55.5;'1975';'Annual';53.7999999999999972;'1976';'Jan';55.6000000000000014;'1976';'Feb';55.7999999999999972;'1976';'Mar';55.8999999999999986;'1976';'Apr';56.1000000000000014;'1976';'May';56.5;'1976';'Jun';56.7999999999999972;'1976';'Jul';57.1000000000000014;'1976';'Aug';57.3999999999999986;'1976';'Sep';57.6000000000000014;'1976';'Oct';57.8999999999999986;'1976';'Nov';58;'1976';'Dec';58.2000000000000028;'1976';'Annual';56.8999999999999986;'1977';'Jan';58.5;'1977';'Feb';59.1000000000000014;'1977';'Mar';59.5;'1977';'Apr';60;'1977';'May';60.2999999999999972;'1977';'Jun';60.7000000000000028;'1977';'Jul';61;'1977';'Aug';61.2000000000000028;'1977';'Sep';61.3999999999999986;'1977';'Oct';61.6000000000000014;'1977';'Nov';61.8999999999999986;'1977';'Dec';62.1000000000000014;'1977';'Annual';60.6000000000000014;'1978';'Jan';62.5;'1978';'Feb';62.8999999999999986;'1978';'Mar';63.3999999999999986;'1978';'Apr';63.8999999999999986;'1978';'May';64.5;'1978';'Jun';65.2000000000000028;'1978';'Jul';65.7000000000000028;'1978';'Aug';66;'1978';'Sep';66.5;'1978';'Oct';67.0999999999999943;'1978';'Nov';67.4000000000000057;'1978';'Dec';67.7000000000000028;'1978';'Annual';65.2000000000000028;'1979';'Jan';68.2999999999999972;'1979';'Feb';69.0999999999999943;'1979';'Mar';69.7999999999999972;'1979';'Apr';70.5999999999999943;'1979';'May';71.5;'1979';'Jun';72.2999999999999972;'1979';'Jul';73.0999999999999943;'1979';'Aug';73.7999999999999972;'1979';'Sep';74.5999999999999943;'1979';'Oct';75.2000000000000028;'1979';'Nov';75.9000000000000057;'1979';'Dec';76.7000000000000028;'1979';'Annual';72.5999999999999943;'1980';'Jan';77.7999999999999972;'1980';'Feb';78.9000000000000057;'1980';'Mar';80.0999999999999943;'1980';'Apr';81;'1980';'May';81.7999999999999972;'1980';'Jun';82.7000000000000028;'1980';'Jul';82.7000000000000028;'1980';'Aug';83.2999999999999972;'1980';'Sep';84;'1980';'Oct';84.7999999999999972;'1980';'Nov';85.5;'1980';'Dec';86.2999999999999972;'1980';'Annual';82.4000000000000057;'1981';'Jan';87;'1981';'Feb';87.9000000000000057;'1981';'Mar';88.5;'1981';'Apr';89.0999999999999943;'1981';'May';89.7999999999999972;'1981';'Jun';90.5999999999999943;'1981';'Jul';91.5999999999999943;'1981';'Aug';92.2999999999999972;'1981';'Sep';93.2000000000000028;'1981';'Oct';93.4000000000000057;'1981';'Nov';93.7000000000000028;'1981';'Dec';94;'1981';'Annual';90.9000000000000057;'1982';'Jan';94.2999999999999972;'1982';'Feb';94.5999999999999943;'1982';'Mar';94.5;'1982';'Apr';94.9000000000000057;'1982';'May';95.7999999999999972;'1982';'Jun';97;'1982';'Jul';97.5;'1982';'Aug';97.7000000000000028;'1982';'Sep';97.9000000000000057;'1982';'Oct';98.2000000000000028;'1982';'Nov';98;'1982';'Dec';97.5999999999999943;'1982';'Annual';96.5;'1983';'Jan';97.7999999999999972;'1983';'Feb';97.9000000000000057;'1983';'Mar';97.9000000000000057;'1983';'Apr';98.5999999999999943;'1983';'May';99.2000000000000028;'1983';'Jun';99.5;'1983';'Jul';99.9000000000000057;'1983';'Aug';100.200000000000003;'1983';'Sep';100.700000000000003;'1983';'Oct';101;'1983';'Nov';101.200000000000003;'1983';'Dec';101.299999999999997;'1983';'Annual';99.5999999999999943;'1984';'Jan';101.900000000000006;'1984';'Feb';102.400000000000006;'1984';'Mar';102.599999999999994;'1984';'Apr';103.099999999999994;'1984';'May';103.400000000000006;'1984';'Jun';103.700000000000003;'1984';'Jul';104.099999999999994;'1984';'Aug';104.5;'1984';'Sep';105;'1984';'Oct';105.299999999999997;'1984';'Nov';105.299999999999997;'1984';'Dec';105.299999999999997;'1984';'Annual';103.900000000000006;'1984';'HALF1';102.900000000000006;'1984';'HALF2';104.900000000000006;'1985';'Jan';105.5;'1985';'Feb';106;'1985';'Mar';106.400000000000006;'1985';'Apr';106.900000000000006;'1985';'May';107.299999999999997;'1985';'Jun';107.599999999999994;'1985';'Jul';107.799999999999997;'1985';'Aug';108;'1985';'Sep';108.299999999999997;'1985';'Oct';108.700000000000003;'1985';'Nov';109;'1985';'Dec';109.299999999999997;'1985';'Annual';107.599999999999994;'1985';'HALF1';106.599999999999994;'1985';'HALF2';108.5;'1986';'Jan';109.599999999999994;'1986';'Feb';109.299999999999997;'1986';'Mar';108.799999999999997;'1986';'Apr';108.599999999999994;'1986';'May';108.900000000000006;'1986';'Jun';109.5;'1986';'Jul';109.5;'1986';'Aug';109.700000000000003;'1986';'Sep';110.200000000000003;'1986';'Oct';110.299999999999997;'1986';'Nov';110.400000000000006;'1986';'Dec';110.5;'1986';'Annual';109.599999999999994;'1986';'HALF1';109.099999999999994;'1986';'HALF2';110.099999999999994;'1987';'Jan';111.200000000000003;'1987';'Feb';111.599999999999994;'1987';'Mar';112.099999999999994;'1987';'Apr';112.700000000000003;'1987';'May';113.099999999999994;'1987';'Jun';113.5;'1987';'Jul';113.799999999999997;'1987';'Aug';114.400000000000006;'1987';'Sep';115;'1987';'Oct';115.299999999999997;'1987';'Nov';115.400000000000006;'1987';'Dec';115.400000000000006;'1987';'Annual';113.599999999999994;'1987';'HALF1';112.400000000000006;'1987';'HALF2';114.900000000000006;'1988';'Jan';115.700000000000003;'1988';'Feb';116;'1988';'Mar';116.5;'1988';'Apr';117.099999999999994;'1988';'May';117.5;'1988';'Jun';118;'1988';'Jul';118.5;'1988';'Aug';119;'1988';'Sep';119.799999999999997;'1988';'Oct';120.200000000000003;'1988';'Nov';120.299999999999997;'1988';'Dec';120.5;'1988';'Annual';118.299999999999997;'1988';'HALF1';116.799999999999997;'1988';'HALF2';119.700000000000003;'1989';'Jan';121.099999999999994;'1989';'Feb';121.599999999999994;'1989';'Mar';122.299999999999997;'1989';'Apr';123.099999999999994;'1989';'May';123.799999999999997;'1989';'Jun';124.099999999999994;'1989';'Jul';124.400000000000006;'1989';'Aug';124.599999999999994;'1989';'Sep';125;'1989';'Oct';125.599999999999994;'1989';'Nov';125.900000000000006;'1989';'Dec';126.099999999999994;'1989';'Annual';124;'1989';'HALF1';122.700000000000003;'1989';'HALF2';125.299999999999997;'1990';'Jan';127.400000000000006;'1990';'Feb';128;'1990';'Mar';128.699999999999989;'1990';'Apr';128.900000000000006;'1990';'May';129.199999999999989;'1990';'Jun';129.900000000000006;'1990';'Jul';130.400000000000006;'1990';'Aug';131.599999999999994;'1990';'Sep';132.699999999999989;'1990';'Oct';133.5;'1990';'Nov';133.800000000000011;'1990';'Dec';133.800000000000011;'1990';'Annual';130.699999999999989;'1990';'HALF1';128.699999999999989;'1990';'HALF2';132.599999999999994;'1991';'Jan';134.599999999999994;'1991';'Feb';134.800000000000011;'1991';'Mar';135;'1991';'Apr';135.199999999999989;'1991';'May';135.599999999999994;'1991';'Jun';136;'1991';'Jul';136.199999999999989;'1991';'Aug';136.599999999999994;'1991';'Sep';137.199999999999989;'1991';'Oct';137.400000000000006;'1991';'Nov';137.800000000000011;'1991';'Dec';137.900000000000006;'1991';'Annual';136.199999999999989;'1991';'HALF1';135.199999999999989;'1991';'HALF2';137.199999999999989;'1992';'Jan';138.099999999999994;'1992';'Feb';138.599999999999994;'1992';'Mar';139.300000000000011;'1992';'Apr';139.5;'1992';'May';139.699999999999989;'1992';'Jun';140.199999999999989;'1992';'Jul';140.5;'1992';'Aug';140.900000000000006;'1992';'Sep';141.300000000000011;'1992';'Oct';141.800000000000011;'1992';'Nov';142;'1992';'Dec';141.900000000000006;'1992';'Annual';140.300000000000011;'1992';'HALF1';139.199999999999989;'1992';'HALF2';141.400000000000006;'1993';'Jan';142.599999999999994;'1993';'Feb';143.099999999999994;'1993';'Mar';143.599999999999994;'1993';'Apr';144;'1993';'May';144.199999999999989;'1993';'Jun';144.400000000000006;'1993';'Jul';144.400000000000006;'1993';'Aug';144.800000000000011;'1993';'Sep';145.099999999999994;'1993';'Oct';145.699999999999989;'1993';'Nov';145.800000000000011;'1993';'Dec';145.800000000000011;'1993';'Annual';144.5;'1993';'HALF1';143.699999999999989;'1993';'HALF2';145.300000000000011;'1994';'Jan';146.199999999999989;'1994';'Feb';146.699999999999989;'1994';'Mar';147.199999999999989;'1994';'Apr';147.400000000000006;'1994';'May';147.5;'1994';'Jun';148;'1994';'Jul';148.400000000000006;'1994';'Aug';149;'1994';'Sep';149.400000000000006;'1994';'Oct';149.5;'1994';'Nov';149.699999999999989;'1994';'Dec';149.699999999999989;'1994';'Annual';148.199999999999989;'1994';'HALF1';147.199999999999989;'1994';'HALF2';149.300000000000011;'1995';'Jan';150.300000000000011;'1995';'Feb';150.900000000000006;'1995';'Mar';151.400000000000006;'1995';'Apr';151.900000000000006;'1995';'May';152.199999999999989;'1995';'Jun';152.5;'1995';'Jul';152.5;'1995';'Aug';152.900000000000006;'1995';'Sep';153.199999999999989;'1995';'Oct';153.699999999999989;'1995';'Nov';153.599999999999994;'1995';'Dec';153.5;'1995';'Annual';152.400000000000006;'1995';'HALF1';151.5;'1995';'HALF2';153.199999999999989;'1996';'Jan';154.400000000000006;'1996';'Feb';154.900000000000006;'1996';'Mar';155.699999999999989;'1996';'Apr';156.300000000000011;'1996';'May';156.599999999999994;'1996';'Jun';156.699999999999989;'1996';'Jul';157;'1996';'Aug';157.300000000000011;'1996';'Sep';157.800000000000011;'1996';'Oct';158.300000000000011;'1996';'Nov';158.599999999999994;'1996';'Dec';158.599999999999994;'1996';'Annual';156.900000000000006;'1996';'HALF1';155.800000000000011;'1996';'HALF2';157.900000000000006;'1997';'Jan';159.099999999999994;'1997';'Feb';159.599999999999994;'1997';'Mar';160;'1997';'Apr';160.199999999999989;'1997';'May';160.099999999999994;'1997';'Jun';160.300000000000011;'1997';'Jul';160.5;'1997';'Aug';160.800000000000011;'1997';'Sep';161.199999999999989;'1997';'Oct';161.599999999999994;'1997';'Nov';161.5;'1997';'Dec';161.300000000000011;'1997';'Annual';160.5;'1997';'HALF1';159.900000000000006;'1997';'HALF2';161.199999999999989;'1998';'Jan';161.599999999999994;'1998';'Feb';161.900000000000006;'1998';'Mar';162.199999999999989;'1998';'Apr';162.5;'1998';'May';162.800000000000011;'1998';'Jun';163;'1998';'Jul';163.199999999999989;'1998';'Aug';163.400000000000006;'1998';'Sep';163.599999999999994;'1998';'Oct';164;'1998';'Nov';164;'1998';'Dec';163.900000000000006;'1998';'Annual';163;'1998';'HALF1';162.300000000000011;'1998';'HALF2';163.699999999999989;'1999';'Jan';164.300000000000011;'1999';'Feb';164.5;'1999';'Mar';165;'1999';'Apr';166.199999999999989;'1999';'May';166.199999999999989;'1999';'Jun';166.199999999999989;'1999';'Jul';166.699999999999989;'1999';'Aug';167.099999999999994;'1999';'Sep';167.900000000000006;'1999';'Oct';168.199999999999989;'1999';'Nov';168.300000000000011;'1999';'Dec';168.300000000000011;'1999';'Annual';166.599999999999994;'1999';'HALF1';165.400000000000006;'1999';'HALF2';167.800000000000011;'2000';'Jan';168.800000000000011;'2000';'Feb';169.800000000000011;'2000';'Mar';171.199999999999989;'2000';'Apr';171.300000000000011;'2000';'May';171.5;'2000';'Jun';172.400000000000006;'2000';'Jul';172.800000000000011;'2000';'Aug';172.800000000000011;'2000';'Sep';173.699999999999989;'2000';'Oct';174;'2000';'Nov';174.099999999999994;'2000';'Dec';174;'2000';'Annual';172.199999999999989;'2000';'HALF1';170.800000000000011;'2000';'HALF2';173.599999999999994;'2001';'Jan';175.099999999999994;'2001';'Feb';175.800000000000011;'2001';'Mar';176.199999999999989;'2001';'Apr';176.900000000000006;'2001';'May';177.699999999999989;'2001';'Jun';178;'2001';'Jul';177.5;'2001';'Aug';177.5;'2001';'Sep';178.300000000000011;'2001';'Oct';177.699999999999989;'2001';'Nov';177.400000000000006;'2001';'Dec';176.699999999999989;'2001';'Annual';177.099999999999994;'2001';'HALF1';176.599999999999994;'2001';'HALF2';177.5;'2002';'Jan';177.099999999999994;'2002';'Feb';177.800000000000011;'2002';'Mar';178.800000000000011;'2002';'Apr';179.800000000000011;'2002';'May';179.800000000000011;'2002';'Jun';179.900000000000006;'2002';'Jul';180.099999999999994;'2002';'Aug';180.699999999999989;'2002';'Sep';181;'2002';'Oct';181.300000000000011;'2002';'Nov';181.300000000000011;'2002';'Dec';180.900000000000006;'2002';'Annual';179.900000000000006;'2002';'HALF1';178.900000000000006;'2002';'HALF2';180.900000000000006;'2003';'Jan';181.699999999999989;'2003';'Feb';183.099999999999994;'2003';'Mar';184.199999999999989;'2003';'Apr';183.800000000000011;'2003';'May';183.5;'2003';'Jun';183.699999999999989;'2003';'Jul';183.900000000000006;'2003';'Aug';184.599999999999994;'2003';'Sep';185.199999999999989;'2003';'Oct';185;'2003';'Nov';184.5;'2003';'Dec';184.300000000000011;'2003';'Annual';184;'2003';'HALF1';183.300000000000011;'2003';'HALF2';184.599999999999994;'2004';'Jan';185.199999999999989;'2004';'Feb';186.199999999999989;'2004';'Mar';187.400000000000006;'2004';'Apr';188;'2004';'May';189.099999999999994;'2004';'Jun';189.699999999999989;'2004';'Jul';189.400000000000006;'2004';'Aug';189.5;'2004';'Sep';189.900000000000006;'2004';'Oct';190.900000000000006;'2004';'Nov';191;'2004';'Dec';190.300000000000011;'2004';'Annual';188.900000000000006;'2004';'HALF1';187.599999999999994;'2004';'HALF2';190.199999999999989;'2005';'Jan';190.699999999999989;'2005';'Feb';191.800000000000011;'2005';'Mar';193.300000000000011;'2005';'Apr';194.599999999999994;'2005';'May';194.400000000000006;'2005';'Jun';194.5;'2005';'Jul';195.400000000000006;'2005';'Aug';196.400000000000006;'2005';'Sep';198.800000000000011;'2005';'Oct';199.199999999999989;'2005';'Nov';197.599999999999994;'2005';'Dec';196.800000000000011;'2005';'Annual';195.300000000000011;'2005';'HALF1';193.199999999999989;'2005';'HALF2';197.400000000000006;'2006';'Jan';198.300000000000011;'2006';'Feb';198.699999999999989;'2006';'Mar';199.800000000000011;'2006';'Apr';201.5;'2006';'May';202.5;'2006';'Jun';202.900000000000006;'2006';'Jul';203.5;'2006';'Aug';203.900000000000006;'2006';'Sep';202.900000000000006;'2006';'Oct';201.800000000000011;'2006';'Nov';201.5;'2006';'Dec';201.800000000000011;'2006';'Annual';201.599999999999994;'2006';'HALF1';200.599999999999994;'2006';'HALF2';202.599999999999994;'2007';'Jan';202.415999999999997;'2007';'Feb';203.498999999999995;'2007';'Mar';205.352000000000004;'2007';'Apr';206.686000000000007;'2007';'May';207.949000000000012;'2007';'Jun';208.352000000000004;'2007';'Jul';208.299000000000007;'2007';'Aug';207.917000000000002;'2007';'Sep';208.490000000000009;'2007';'Oct';208.936000000000007;'2007';'Nov';210.176999999999992;'2007';'Dec';210.036000000000001;'2007';'Annual';207.342000000000013;'2007';'HALF1';205.709000000000003;'2007';'HALF2';208.975999999999999;'2008';'Jan';211.080000000000013;'2008';'Feb';211.693000000000012
DROPBOX=:'/db/Dropbox/joddumps/'
IFACEWORDShtmthorn=:,<'thh'
IFACEWORDSputters=:<;._1 ' getbyte getjson getlean getmd getnb getpy getsql gettex gettxt getxml getzig putbyte putjson putlean putmd putnb putpy putsql puttex puttxt putxml putzig'
IFACEWORDSsunmoon=:<;._1 ' calmoons moons sunriseset0 sunriseset1'
LF=:10{a.
NAMEALPHA=:'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789_'
NORISESET=:99
PUTTERSPATH=:'~temp/'
PythonPath=:'C:\Anaconda3\'
ROOTWORDShtmthorn=:<;._1 ' ROOTWORDShtmthorn IFACEWORDShtmthorn'
ROOTWORDSputters=:<;._1 ' IFACEWORDSputters ROOTWORDSputters VMDputters getbyte getjson getlean getmd getnb getpy getsql gettex gettxt getxml getzig putbyte putjson putlean putmd putnb putpy putsql puttex puttxt putxml putzig'
ROOTWORDSsunmoon=:<;._1 ' IFACEWORDSsunmoon ROOTWORDSsunmoon VMDsunmoon calmoons sunriseset0 sunriseset1 today yeardates'
TAB=:a.{~9
TEMPFILE0=:'c:\temp\md5tmp.txt'
TeXPtCm=:28.3999999999999986
TeXPtIn=:72.269999999999996
TeXPtMm=:2.83999999999999986
USBDRIVEVOLUME=:'USBK01'
VMDputters=:'0.9.0';10;'25 Oct 2024 14:37:09'
VMDsunmoon=:'1.0.0';5;'12 Aug 2024 13:13:39'
VMDtemplate=:'';0;''
pi=:3.14159265358979312
putters_hashdateurl=:<;._1 '|ced8bb57a5039314eacd05229989f630199cbfa3713e3be6ca8172226d57012f|25 Oct 2024 14:37:09|https://github.com/bakerjd99/joddumps/blob/master/utils.ijs'
sunmoon_hashdateurl=:<;._1 '|e316548a65b6c64f150c193afe04468d4778863e73c6801364a6bc170d458889|12 Aug 2024 13:13:39|https://github.com/bakerjd99/jacks/blob/master/jodliterate/sunmoon.ijs'
template_hashdateurl=:<;._1 '||24 Feb 2024 12:08:19|'
showpass soput ".'nl_',SOLOCALE,'_ i.4' [ cocurrent 'base' NB.{*JOD*}
".soclear NB.{*JOD*}
cocurrent SO__JODobj NB.{*JOD*}
BesselJ=:1 : '(^&m@:-: % (!m)"_)* [: ''''H. (m+1) _0.25 * *:'
MillerRabin=:100&$: :(4 : 0)"0
NB.*MillerRabin v-- Miller Rabin probabalistic prime test.
NB.
NB. m MillerRabin n is 0 or 1. If 0 then n is not prime; if 1
NB. then n is prime with an error probability of at most 0.25^m
NB.
NB. verbatim:
NB.
NB. from J Wiki:
NB. http://www.jsoftware.com/jwiki/Essays/Primality_Tests#20081031001648
NB.
NB. monad: pa =. MillerRabin ia | Xa
NB.
NB. MillerRabin 3454545452242x
NB.
NB. dyad: ps =. iaM MillerRabin ia | Xa
NB.
NB. 10 MillerRabin p: 2000000
d=. {:s=. huo y-1
e=. 2x^#s
for_a. 1+x ?@$ y-1 do.
if. 1~:(a y&|@^ d) y&|@^ e do. 0 return. end.
end.
1
)
Note=:3 : '0 0 $ 0 : 0' :[
afterlaststr=:] }.~ #@[ + 1&(i:~)@([ E. ])
afterstr=:] }.~ #@[ + 1&(i.~)@([ E. ])
allomask=:[: (*./\. +. *./\) =
allotrim=:] #~ [: -. [: (*./\. +. *./\) =
alltrim=:] #~ [: -. [: (*./\. +. *./\) ' '&=
allwhitetrim=:] #~ [: -. [: (*./\. +. *./\) ] e. (9 10 13 32{a.)"_
amort=:3 : 0
NB.*amort v-- generates an amortization table for a loan of 1.00.
NB.
NB. This amortization verb comes from the (finance) addon.
NB. Payments are assumed to be made in arrears.
NB.
NB. verbatim:
NB.
NB. y has 3 elements:
NB. frq = payment frequency (e.g. 1=annual, 12=monthly)
NB. int = decimal interest rate per annum.
NB. yrs = number of years of loan
NB.
NB. result is a matrix: pay osb ip pp
NB. psy = level payment necessary to amortize the loan
NB. osb = outstanding balance before each payment
NB. ip = interest portion of each payment
NB. pp = principal portion of each payment
NB.
NB. monad: nt =. amort nl
NB.
NB. amort 12 0.125 25 NB. 25 year loan payable monthly at 12.5%
NB.
NB. 150000 * amort 12 0.05 15 NB. $150,000 15 year mortgage at 5.0%
if. 3 ~: #y do.
'frq int yrs' return. end.
'f i y'=. y
len=. f*y
i=. <:(>:i)^%f
vn=. */\1,len$%>:i
osb=. osb%{.osb=. |.-.}.vn
pay=. %+/}.vn
pp=. pay-ip=. osb*i
pay,.osb,.ip,.pp
)
antimode=:3 : 0
NB.*antimode v-- finds the least frequently occurring item(s) in
NB. a list.
NB.
NB. monad: ul =. antimode ul
NB.
NB. antimode ?.500#100
NB. antimode ;:'blah blah blah yada yada wisdom'
if. 0 < # y =. ,y do. NB. no antimodes for null lists
f =. #/.~ y NB. nub frequency
(~. y) #~ f e. <./ f NB. lowest frequency items
else. y
end.
)
append=:1!:3 ]`<@.(32&>@(3!:0))
apply=:128!:2
applyintree=:2 : 0
NB.*applyintree c-- apply (u) at the cell indicated by (n).
NB.
NB. Note: the shape of the selected portion of (y) may not change.
NB.
NB. See J wiki: https://code.jsoftware.com/wiki/Vocabulary/AmendingBoxedStructures
NB.
NB. verbatim:
NB.
NB. ]y =. (;: 'An array with'), < (;: 'Interesting contents') ; 1 2 3
NB.
NB. 10 , applyintree (3;1) y
NB. 4 >. applyintree (3;1) y
NB. {. applyintree 2 y
NB. _2 {. applyintree 2 y
i=. >^:((1=#)@>) {. n
(u`(u applyintree (}.n))@.(1<#n)&.:> i{y) i} y
:
i=. >^:((1=#)@>) {. n
((x&u)`(x&(u applyintree (}.n)))@.(1<#n)&.:> i{y) i} y
)
applyintree2=:2 : 0
NB.*applyintree2 c-- apply (u) at the cell indicated by (n).
NB.
NB. See J wiki: https://code.jsoftware.com/wiki/Vocabulary/AmendingBoxedStructures
NB.
NB. verbatim:
NB.
NB. ]y =. (;: 'An array with'), < (;: 'Interesting contents') ; 1 2 3
NB.
NB. NB. applY {. to the contents of the cell with index 2
NB. {. applyintree2 2 y
NB.
NB. NB. apply {. to contents of cell with path (3;0;1)
NB. {. applyintree2 (3;0;1) y
NB.
NB. NB. for dyad the x argument is passed down unchanged until u is executed.
NB. 10 20 + applyintree2 (3;1;(<<1 2)) y
if. #n do. ((u applyintree2 (}.n)) L:_1 ({.n){y) ({.n)} y else. u y end.
:
if. #n do. (x u applyintree2 (}.n) L:_ _1 ({.n){y) ({.n)} y else. x u y end.
)
arccos=:_2&o.
arccosh=:_6&o.
arcsin=:_1&o.
arcsinh=:_5&o.
arctan=:_3&o.
arctanh=:_7&o.
assert=:0 0"_ $ 13!:8^:((0: e. ])`(12"_))
atags=:'<'&,@,&' ' ; '</'&,@,&'>'
atomfrl=:{.^:((,1) -: $)
attrvalue=:'"'"_ beforestr ([ , '="'"_) afterstr '>'"_ beforestr ]
b36fd=:36x&#.@('0123456789abcdefghijklmnopqrstuvwxyz'&i.)^:_1
b36guids=:'_>`' ,"1~ '`<_' ,"1 [: b36fd guidsx
baserep=:(&#.)(^:(_1))
bblkchars=:[: 9!:7 (11$' ')"_ [ ]
bcfd=:2&#.@('01'&i.)^:_1
beforelaststr=:] {.~ 1&(i:~)@([ E. ])
beforestr=:] {.~ 1&(i.~)@([ E. ])
belongstrs=:4 : 0
NB.*belongstrs v-- select sublists between nonnested delimiters
NB. retaining delimiters.
NB.
NB. dyad: blcl =. (clStart;clEnd) belongstrs cl
NB. blnl =. (nlStart;nlEnd) belongstrs nl
NB.
NB. ('start';'end') belongstrs 'start yada yada end boo hoo start ahh end'
NB.
NB. NB. also applies to numeric delimiters
NB. (1 1;2 2) belongstrs 1 1 66 666 2 2 7 87 1 1 0 2 2
's e'=. x
llst=. (s E. y) +. e E. y
mask=. ~:/\ llst
((mask#llst) <;.1 mask#y) ,&.> <e
)
bernoulli=:3 : 0
NB.*bernoulli v-- generate first N Bernoulli numbers.
NB.
NB. verbatim: see J wiki
NB.
NB. http://202.67.223.49/jwiki/Essays/Bernoulli_Numbers
NB.
NB. monad: rl =. bernoulli iaN
NB.
NB. bernoulli 13
b=. 1 _1r2
for_m. 2x*}.i.>.-:y do. b=. b,0,~(1+m)%~-+/b*(i.m)!1+m end.
}:^:(2|y) b
)
betweenidx=:4 : 0
NB.*betweenidx v-- indexed sublists between nonnested delimiters.
NB.
NB. Cuts up lists containing balanced nonnested start/end
NB. delimiters into boxed lists of indexed sublists.
NB.
NB. Note: this verb does a simple count for delimiter balance.
NB. This is a necessary but not sufficient condition for
NB. delimiter balance.
NB.
NB. dyad: (ilIdx ;< blcl) =. (clStart;clEnd) betweenidx cl
NB. (ilIds ;< blnl) =. (nlStart;nlEnd) betweenidx nl
NB.
NB. ('start';'end') betweenidx 'start yada yada end boo hoo start ahh end'
NB.
NB. '{}' betweenidx 'go{ahead}{}cut{me}{up}{}'
NB.
NB. NB. also applies to numeric delimiters
NB. (1 1;2 2) betweenidx 1 1 66 666 2 2 7 87 1 1 0 2 2
if. #y do.
's e'=. x NB. start/end delimiters
assert. -. s -: e NB. they must differ
em=. e E. y NB. end mask
sm=. (-#s) |.!.0 s E. y NB. start mask
mc=. +/sm NB. middle count
assert. mc=+/em NB. delimiter balance
c=. (1 (0)} sm +. em) <;.1 y NB. cut list
NB. insert any missing middles to insure all indexed
NB. sublists correspond to a location in the cut list
ex=. 1 #~ >: +: mc
ex=. (-. sm {.;.1 em) (>: +: i. mc)} ex
c=. ex #^:_1 c
((# i.@#) (#c)$0 1);<c NB. prefix indexes
else.
(i.0);<y NB. empty arg result
end.
)
betweenidx2=:4 : 0
NB.*betweenidx2 v-- indexed sublists between nonnested
NB. delimiters.
NB.
NB. Cuts up lists containing balanced nonnested start/end
NB. delimiters into boxed lists of indexed sublists.
NB.
NB. Slight improvement on (betweenidx). This version immediately
NB. quits when no delimiters are found and the empty argument and
NB. no tags found result now has the same boxing structure as
NB. nonnull results.
NB.
NB. Note: this verb does a simple count for delimiter balance.
NB. This is a necessary but not sufficient condition for
NB. delimiter balance.
NB.
NB. dyad: (ilIdx ;< blcl) =. (clStart;clEnd) betweenidx2 cl
NB. (ilIds ;< blnl) =. (nlStart;nlEnd) betweenidx2 nl
NB.
NB. ('start';'end') betweenidx2 'start yada yada end boo hoo start ahh end'
NB.
NB. '{}' betweenidx2 'go{ahead}{}cut{me}{up}{}'
NB.
NB. NB. also applies to numeric delimiters
NB. (1 1;2 2) betweenidx2 1 1 66 666 2 2 7 87 1 1 0 2 2
if. #y do.
's e'=. x NB. start/end delimiters
assert. -. s -: e NB. they must differ
em=. e E. y NB. end mask
NB. quit if no delimiters
if. -.1 e. em do. (i.0);<<y return. end.
sm=. (-#s) |.!.0 s E. y NB. start mask
mc=. +/sm NB. middle count
assert. mc=+/em NB. delimiter balance
c=. (1 (0)} sm +. em) <;.1 y NB. cut list
NB. insert any missing middles to insure all indexed
NB. sublists correspond to a location in the cut list
ex=. 1 #~ >: +: mc
ex=. (-. sm {.;.1 em) (>: +: i. mc)} ex
c=. ex #^:_1 c
((# i.@#) (#c)$0 1);<c NB. prefix indexes
else.
(i.0);<<y NB. empty arg result
end.
)
betweenmask=:4 : 0
NB.*betweenmask v-- mask selecting sublists between nonnested delimiters
NB. discarding delimiters.
NB.
NB. dyad: paMask =. (clStart;clEnd) betweenmask cl
NB. paMask =. (nlStart;nlEnd) betweenmask nl
NB.
NB. ('start';'end') betweenmask 'start yada yada end boo hoo start ahh end'
NB.
NB. NB. also applies to numeric delimiters
NB. (1 1;2 2) betweenmask 1 1 66 666 2 2 7 87 1 1 0 2 2
's e'=. x
~:/\ ((-#s) (|.!.0) s E. y) +. e E. y
)
betweenmask2=:[: ~:/\ (([: - [: # 0 >@({ ) [) |.!.0 ] E.~ 0 >@({ ) [) +. ] E.~ 1 >@({ ) [
betweenstrs=:4 : 0
NB.*betweenstrs v-- select sublists between nonnested delimiters
NB. discarding delimiters.
NB.
NB. dyad: blcl =. (clStart;clEnd) betweenstrs cl
NB. blnl =. (nlStart;nlEnd) betweenstrs nl
NB.
NB. ('start';'end') betweenstrs 'start yada yada end boo hoo start ahh end'
NB.
NB. NB. also applies to numeric delimiters
NB. (1 1;2 2) betweenstrs 1 1 66 666 2 2 7 87 1 1 0 2 2
's e'=. x
llst=. ((-#s) (|.!.0) s E. y) +. e E. y
mask=. ~:/\ llst
(mask#llst) <;.1 mask#y
)
betweenstrs2=:4 : 0
NB.*betweenstrs2 v-- select sublists between nonnested
NB. delimiters.
NB.
NB. Original (betweenstrs) - replaced by (betweenstrs) which is
NB. faster and requires significantly less memory.
NB.
NB. dyad: blcl =. (clStart;clEnd) betweenstrs2 cl
NB. blnl =. (nlStart;nlEnd) betweenstrs2 nl
NB.
NB. ('start';'end') betweenstrs2 'start yada yada end boo hoo start ahh end'
NB.
NB. NB. also applies to numeric delimiters
NB. (1 1;2 2) betweenstrs2 1 1 66 666 2 2 7 87 1 1 0 2 2
's e'=. x
llst=. (s E. y) +. e E. y
mask=. ~:/\ llst
(#s) }.&.> (mask#llst) <;.1 mask#y
)
bfd=:2&#.@(0 1&i.)^:_1
blkaft=:3 : 0
NB.*blkaft v-- appends necessary blanks to J tokens.
NB.
NB. This verb appends some necessary blanks to J tokens so that
NB. raising a token list and reparsing produces the same token
NB. list. A few unecessary blanks may be inserted.
NB.
NB. monad: blkaft blcl
NB.
NB. NB. line of J code
NB. line=. 'c=. +./\"1 c > ~:/\"1 y. e. '''''''''
NB. tokens=. ;: line
NB.
NB. NB. compare
NB. (;: ; tokens) -: tokens
NB. (;: ; blkaft tokens) -: tokens
NB. assume no blanks are required
r=. 0 #~ # y
t=. y
while.do.
u=. ;: ;\ t
v=. ~.&.> ( <"1 |: u) -. L: 1 a:
r=. r +. y e. ; {.&.> (1 < #&> v)#v
if. y -: {: u do.
NB. last tokenized row matches original
break.
else.
NB. insert required blanks and reparse
t=. ((r#t),&.>' ') (I. r)} t
end.
end.
NB. insert required blanks and raise tokens
; ((r#y),&.>' ') (I. r)} y
)
bmi=:704.5"_ * ] % [: *: [
bna=:] ,~ [ }.~ [ = [: {. ]
boxopen=:<^:(L. = 0:)
boxxopen=:<^:(L. < *@#)
bye=:2!:55
bytebits=:(8$2) #: a. i. ]
calendar=:3 : 0
NB.*calendar v-- calendar for year as 12 element list. (y) is
NB. one or more numbers: year, months.
NB.
NB. monad: calendar ilYearMonths
NB.
NB. calendar 2007 NB. full year
NB. calendar 2007 7 NB. July only
NB. calendar 2007 , >: i. 3 NB. first quarter
a=. ((j<100)*(-100&|){.6!:0'')+j=. {.y
b=. a+-/<.4 100 400%~<:a
r=. 28+3,(~:/0=4 100 400|a),10$5$3 2
r=. (-7|b+0,+/\}:r)|."0 1 r(]&:>:*"1>/)i.42
m=. (<:}.y),i.12*1=#y
h=. 'JanFebMarAprMayJunJulAugSepOctNovDec'
h=. ' Su Mo Tu We Th Fr Sa',:"1~_3(_12&{.)\h
<"2 m{h,"2[12 6 21 ($,) r{' ',3":1+i.31 1
)
calmoons=:3 : 0
NB.*calmoons v-- calendar dates of new and full moons. 0's denote
NB. new moons and 1's denote full moons.
NB.
NB. monad: it =. calmoons ilYears
NB.
NB. calmoons 1900 2000
NB. compute Julian dates and convert to calendar
j=. moons y
t=. fromjulian <. {. j
NB. attach new (0) and full (1) bits
j=. 0 [ t=. (, |: {: j) ,"0 1 ,/ t
NB. eliminate year overlap and duplicate dates
~. t #~ (1 {"1 t) e. y
)
showpass soput ".'nl_',SOLOCALE,'_ i.4' [ cocurrent 'base' NB.{*JOD*}
".soclear NB.{*JOD*}
cocurrent SO__JODobj NB.{*JOD*}
cartfrpolar=:3 : 0
NB.*cartfrpolar v-- cartesian coordinates (x, y, z) from polar
NB. coordinates (r, theta, phi).
NB.
NB. monad: cartfrpolar ft
NB.
NB. theta in [-90 deg, +90 deg]; phi in [-360 deg, +360 deg]
'r theta phi' =. |: y
rcst=. r * cosd theta
(rcst * cosd phi) ,"0 1 (rcst * sind phi) ,. r * sind theta
)
cd=:15!:0
cder=:15!:10
cderx=:15!:11
cdf=:15!:5
cfp=:+.@(r./)
changenqt=:4 : 0
NB.*changenqt v-- change not quoted.
NB.
NB. Similiar to (changestr) with the exception that J quoted text
NB. is not altered.
NB.
NB. dyad: cl =. clReps changenqt cl
NB.
NB. '/leave/quoted' changenqt 'leave '' leave these leave''s leave '
pairs=. 2 {."(1) _2 [\ <;._1 x NB. change table
cnt=._1 [ lim=. # pairs
while. lim > cnt=.>:cnt do. NB. process each change pair
't c'=. cnt { pairs NB. /target/change
q=.~:/\ '''' = y NB. quote mask
q=. q +. 0,}:q
b=. t E. y NB. target mask
if. +./b=. b *. -.q do. NB. next if no target
u=. I. b NB. target starts
'l m'=. #&> cnt { pairs NB. lengths
p=. u + 0,+/\(<:# u)$ d=. m - l NB. change starts
s=. * d NB. reduce < and > to =
if. s = _1 do.
b=. 1 #~ # b
b=. ((l * # u)$ 1 0 #~ m,l-m) (,u +/ i. l)} b
y=. b # y
if. m = 0 do. continue. end. NB. next for deletions
elseif. s = 1 do.
y=. y #~ >: d u} b NB. first target char replicated
end.
y=.(c $~ m *# u) (,p +/i. m)} y NB. insert replacements
end.
end. y NB. altered string
)
changestr=:4 : 0
NB.*changestr v-- replaces substrings - see long documentation.
NB.
NB. dyad: clReps changestr cl
NB.
NB. NB. first character delimits replacements
NB. '/change/becomes/me/ehh' changestr 'blah blah ...'
pairs=. 2 {."(1) _2 [\ <;._1 x NB. change table
cnt=._1 [ lim=. # pairs
while. lim > cnt=.>:cnt do. NB. process each change pair
't c'=. cnt { pairs NB. /target/change
if. +./b=. t E. y do. NB. next if no target
r=. I. b NB. target starts
'l q'=. #&> cnt { pairs NB. lengths
p=. r + 0,+/\(<:# r)$ d=. q - l NB. change starts
s=. * d NB. reduce < and > to =
if. s = _1 do.
b=. 1 #~ # b
b=. ((l * # r)$ 1 0 #~ q,l-q) (,r +/ i. l)} b
y=. b # y
if. q = 0 do. continue. end. NB. next for deletions
elseif. s = 1 do.
y=. y #~ >: d r} b NB. first target char replicated
end.
y=.(c $~ q *# r) (,p +/i. q)} y NB. insert replacements
end.
end. y NB. altered string
)
changetok=:4 : 0
NB.*changetok v-- replaces J name tokens within a string. See
NB. long documentation.
NB.
NB. dyad: clChanged =. clTokens changetok clStr
NB.
NB. '/boo/hoo' changetok 'boo boo boohoo boohoo'
if. #pairs=. 2 {."(1) _2 [\ <;._1 x do.
pairs=. pairs #~ _2 ~: (4!:0) {."1 pairs NB. eliminate non-token pairs
end.
cnt=._1 [ lim=. # pairs
while. lim > cnt=. >:cnt do. NB. process each change pair
't c'=. cnt { pairs NB. /target/change (*)=. t c
if. +./b=. t E. y do. NB. next if no targets
u=. I. b NB. target starts
'l m'=. #&> cnt { pairs NB. lengths (*)=. l m
q=. (u { ' ' , y) e. NAMEALPHA NB. head chars
r=. ((u + l) { y , ' ') e. NAMEALPHA NB. tail chars
u=. u #~ -. q +. r NB. eliminate embedded tokens
if. 0 = #u do. continue. end. NB. next if no targets
b=. 1 u} 0 #~ # b NB. reset target mask
p=. u + 0,+/\(<:# u)$ d =. m - l NB. change starts
s=. * d NB. reduce < and > to =
if. s = _1 do.
b=. 1 #~ # b
b=. ((l * # u)$ 1 0 #~ m,l-m) (,u +/ i. l)} b
y=. b # y
if. m = 0 do. continue. end. NB. next for deletions
elseif. s = 1 do.
y=. y #~ >: d u} b NB. first target char replicated
end.
y=. (c $~ m *# u) (,p +/i. m)} y NB. insert replacements
end.
end. y NB. altered string
)
charsub=:4 : 0
NB.*charsub v-- single character pair replacements.
NB.
NB. dyad: clPairs charsub cu
NB.
NB. '-_$ ' charsub '$123 -456 -789'
'f t'=. ((#x)$0 1)<@,&a./.x
t {~ f i. y
)
citemize=:,:^:(2 > #@$)
comb=:4 : 0
NB.*comb v-- all size (x) combinations of i.y
NB.
NB. dyad: it =. iaR comb iaN
NB.
NB. 3 comb 5 NB. 5 choose 3 combinations
NB. (i. >:5) comb&.> 5 NB. note empty and complete
k=. i.>:d=.y-x
z=. (d$<i.0 0),<i.1 0
for. i.x do. z=. k ,.&.> ,&.>/\. >:&.> z end.
; z
)
cos=:2&o.
cosd=:cos@rfd
cosh=:6&o.
crc=:128!:3
ctl=:}.@(,@(1&(,"1)@(-.@(*./\."1@(=&' '@])))) # ,@((10{a.)&(,"1)@]))
cutnestidx=:4 : 0
NB.*cutnestidx v-- cut list into nested runs and other.
NB.
NB. Nested runs are delimited by begin and end tags. This verb is
NB. oriented toward XML parsing where typical begin end tags are
NB. <ul> </ul> and tags with attributes like: <hoo boy="2">
NB. </hoo>
NB.
NB. This verb can process numeric lists but care must be taken to
NB. insure the pad item (1{.0$y) does not match begin and end
NB. values.
NB.
NB. dyad: (ilIdx ;< blcl) =. (clStart;clEnd) cutnestidx cl
NB. (ilIdx ;< blnl) =. (nlStart;nlEnd) cutnestidx nl
NB.
NB. xml=. 'yada <ol><li>one</li><ol><li>sub one</li></ol></ol> boo'
NB. ('<ol';'</ol>') cutnestidx xml
NB.
NB. 88 99 cutnestidx (i.5),88,(10?10),99 88 5 5 5 5 5 99
if. #y do.
's e'=. ,&.> x NB. start end lists
ut=. 1{.0$y NB. padding
assert. -.s -: e NB. they must differ
assert. -.(s -:ut) +. e-:ut
sp=. s E. ut=.y,ut NB. start mask
NB. quit if no delimiters
if. -.1 e. sp do. (i.0);<<y return. end.
ep=. e E. ut NB. end mask
assert. (+/sp) = +/ep NB. basic balance
dp=. sp + - ep NB. start end marks
assert. 0 *./ . <: +/\ dp NB. nested balance
ep=. I. _1=dp [ sp=. I. 1=dp NB. start end indexes
ut=. +/\dp -. 0 NB. scanned marks
dp=. /:~ sp,ep NB. all indexes
sp=. (firstones 1<:ut)#dp NB. starts of nested
ep=. (#e)+(0=ut)#dp NB. starts of other
dp=. /:~ ~.0,sp,ep NB. cut starts
ut=. }: 1 dp} (>:#y)#0 NB. cut mask
(dp i. sp);<ut <;.1 y NB. nest indexes cut list
else.
(i.0);<<y NB. empty arg result
end.
)
cutstridx=:4 : 0
NB.*cutstridx v-- cut list into (x) and other.
NB.
NB. dyad: (ilIdx ;< blcl) =. clStr cutstridx cl
NB.
NB. 'CHOP' cutstridx 'CHOP CHOP me up CHOP ehh'
if. 1 e. b=. x E. ,y do.
sp=. I. b
op=. (0 e. sp) }. 0,sp + #x
op=. /:~ sp,op -. #y
(op i. sp) ;< (1 op} b) <;.1 y
else.
(i.0);<<y
end.
)
datefrint=:0 100 100&#:@<.
datefrnum=:0 100 100&#:@<.
dayage=:3 : 0
NB.*dayage v-- age in days.
NB.
NB. monad: dayage ilYYYYMMDD
NB.
NB. dayage 1953 7 2
NB.
NB. dyad: pa dayage iaYYYYMMDD | iuYYYYMMDD
NB.
NB. 1 dayage 4 4$20000101 19500202 19000303
NB. 0 dayage 1986 8 14
0 dayage y
:
if. x do. n=. today~ 0 else. n=. today 0 end.
(x todayno n) - x todayno y
)
dayofweek=:(<;._1 ' Sunday Monday Tuesday Wednesday Thursday Friday Saturday')"_ { ~ 7: | 1: + tojulian
daysperyear=:365 + [: -/ 0 = 4 100 400 |/ ]
dblines=:3 : 0
NB.*dblines v-- display explicit word with debug oriented line numbers.
NB.
NB. monad: blct =. dblines clName
NB.
NB. dblines 'dblines' NB. self
NB. dblines 'tacit' NB. no lines in tacits
NB.
NB. NB. comment and blank lines supressed as debug does not stop on them
NB. dblines 'dyadwithcomments'
s=. jcr y NB. obfuscate (/:)=:
t=. 0{"1;:"1 s NB. first line token
b=. 0 (0)} 0 (I. t=<,':')} 1 #~ #s
l=. ": ,. (;(i.@(+/))&.><;._1 b) (I. b)} b
l=. ' ' (I. -.b)} l NB. monad/dyad
l=. ' ' (I. a:=t)} l NB. all blank lines
l=. ' ' (I. (<'NB.')=3&{.&.> t)} l NB. comment lines
l ; s
)
dblquote=:'"'&,@:(,&'"')&.>
dbquote=:'"'&,@(,&'"')@(#~ >:@(=&'"'))
dbstr=:4 : 0
NB.*dbstr v-- return stop expression for executable lines containing (x).
NB.
NB. dyad: cl =. clStr dbstr clName
NB.
NB. 'date' dbstr 'yeardates'
NB. dbss 'date' dbstr 'yeardates'
'l s'=. dblines y NB. obfuscate (/:)=:
l=. ". ,' ' ,. l {~ I. (,:x) (+./"1)@E. s
if. #l do.
l=. ':' ; (-.0,0 < (}.-}:) l) <;.1 l
y , ' ' , ;":&.> (1 0&{)`(1 0 2&{)@.((3&=)@#) l
else.
''
end.
)
ddcheck=:ddcheck_jdd_
ddcnm=:ddcnm_jdd_
ddcol=:ddcol_jdd_
ddcon=:ddcon_jdd_
dddis=:dddis_jdd_
dderr=:dderr_jdd_
ddfch=:ddfch_jdd_
ddfet=:ddfet_jdd_
ddfrdms=:(60"_ #. ]) % 3600"_
ddsel=:ddsel_jdd_
ddsql=:ddsql_jdd_
ddsrc=:ddsrc_jdd_
ddtblx=:ddtblx_jdd_
debom=:] }.~ 3 * (239 187 191{a.) -: 3 {. ]
decomm=:3 : 0
NB.*decomm v-- removes comments from j words. The (x) argument
NB. specifies whether all blank lines are removed or retained.
NB.
NB. monad: decomm ctWord
NB.
NB. decomm jcr 'decomm' NB. decomment self
NB.
NB. dyad: pa decomm ctWord
NB.
NB. 1 decomm jcr 'decomm' NB. remove blanks (default)
NB. 0 decomm jcr 'decomm' NB. retain all blank lines
1 decomm y
:
NB. mask of unquoted comment starts
c=. ($y)$'NB.' E. ,y
c=. +./\"1 c > ~:/\"1 y e. ''''
NB. ,, work around for j8.05 bug - remove when fixed
NB. y=. ,,y
NB. blank out comments
y=. ' ' (I. ,c)} ,y
y=. y $~ $c
NB. remove blank lines - default
if. x do. y #~ y +./ . ~: ' ' end.
)
dev=:-"_1 _ mean
dewhitejscript=:3 : 0
NB.*dewhitejscript v-- removes all redundant blanks from J
NB. scripts.
NB.
NB. monad: dewhitejscript cl
NB.
NB. dewhitejscript read 'c:\any\j\script.ijs'
NB. replace any tabs with single blanks
y=. ' ' (I. y=TAB)} y
NB. remove blank lines and all comments from script
y=. ;:&.> <"1 decomm ];. _1 LF,y-.CR
NB. remove redundant blanks in code
; (blkaft&.> y) ,&.> <CRLF
)
dfb=:2&#.@(0 1&i.)
dfbc=:2&#.@('01'&i.)
dfchc=:4 : 0
NB.*dfchc v-- ddfch odbc table/column(s) as dictionary.
NB.
NB. dyad: bt =. clTable dfchc clDsn
NB. bt =. blclTabVols dfchc clDsn
NB.
NB. d=. 'RoyalMemosReport' dfchc 'dsn=emcs_wh_dev'
NB.
NB. NB. fetch listed columns - first name is table
NB. d=. ('EMCSFacility';'FranchiseRoyaltyID') dfchc 'dsn=emcs_wh_dev'
NB.
NB. NB. define columns as nouns
NB. ({."1 d)=: {:"1 d
NB. require 'dd' !(*)=. ddcol ddsel ddfch ddcon dddis
'cannot connect db' assert 0<ch=. ddcon y
if. (1 = L. x) *. 1 < #x do.
cln=. }. x
sql=. 'select ' , (}: ;cln ,&.> ','),' from ' , ;0{x
elseif. 0 = L. x do.
sql=. 'select * from ',x
NB. fetch table column names
cln=. x ddcol ch
cln=. }. cln {"1~ (0 { cln) i. <'COLUMN_NAME'
elseif.do. 'table/column(s) invalid' assert 0
end.
NB. fetch table data
'cannot select data' assert 0<s=. sql ddsel ch
'cannot fetch data' assert -. _1-:d=. ddfch s,_1
NB. return dictionary table with raveled column vectors
cln ,. ]`,@.(1=[:{:$) &.> d [ dddis ch
)
dfetc=:4 : 0
NB.*dfetc v-- ddfet odbc table/column(s) as dictionary.
NB.
NB. dyad: bt =. clTable dfetc clDsn