Long year: Difference between revisions
Content added Content deleted
(Added J implementation) |
|||
| Line 772: | Line 772: | ||
170 NEXT |
170 NEXT |
||
180 PRINT</lang> |
180 PRINT</lang> |
||
=={{header|J}}== |
|||
{{trans|C}} |
|||
<lang j> p =: 1 4 _100 400&(7 | [: <. +/ @: %~)"1 0 |
|||
ily =: (4=p) +. 3=p@:<: |
|||
ply =: (#~ ily)@:([ + 1+i.@:-~)</lang> |
|||
{{out}} |
|||
<pre> |
|||
ply/ 1800 2100 |
|||
1801 1807 1812 1818 1823 1829 1835 1840 1846 1852 1857 1863 1869 1874 1880 1885 1891 1897 1902 1908 1914 1919 1925 1930 1936 1942 1947 1953 1959 1964 1970 1976 1981 1987 1992 1998 2004 2009 2015 2021 2026 2032 2038 2043 2049 2054 2060 2066 2071 2077 2083 2...</pre> |
|||
=={{header|Java}}== |
=={{header|Java}}== |
||