RosettaCodeData/Task/Check-Machin-like-formulas/J/check-machin-like-formulas-2.j
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

68 lines
1 KiB
Text
Raw Permalink Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

R =: <@:(0&".);._2 ];._2 noun define
  1  1     2
  1  1     3
------------
  2  1     3
  1  1     7
------------
  4  1     5
 _1  1   239
------------
  5  1     7
  2  3    79
------------
  5 29   278
  7  3    79
------------
  1  1     2
  1  1     5
  1  1     8
------------
  4  1     5
 _1  1    70
  1  1    99
------------
  5  1     7
  4  1    53
  2  1  4443
------------
  6  1     8
  2  1    57
  1  1   239
------------
  8  1    10
 _1  1   239
 _4  1   515
------------
 12  1    18
  8  1    57
 _5  1   239
------------
 16  1    21
  3  1   239
  4  3  1042
------------
 22  1    28
  2  1   443
 _5  1  1393
_10  1 11018
------------
 22  1    38
 17  7   601
 10  7  8149
------------
 44  1    57
  7  1   239
_12  1   682
 24  1 12943
------------
 88  1   172
 51  1   239
 32  1   682
 44  1  5357
 68  1 12943
------------
)
   machin&> R
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1