[ create a new paste ] login | about

Link: http://codepad.org/NtxFEXod    [ raw code | output | fork ]

Perl, pasted on Feb 2:
1
2
3
for$y(1919..2010){
    printf "西暦 $y 年 = %d\n", -($y - 1927)%9+1;
}


Output:
西暦 1919 年 = 9
西暦 1920 年 = 8
西暦 1921 年 = 7
西暦 1922 年 = 6
西暦 1923 年 = 5
西暦 1924 年 = 4
西暦 1925 年 = 3
西暦 1926 年 = 2
西暦 1927 年 = 1
西暦 1928 年 = 9
西暦 1929 年 = 8
西暦 1930 年 = 7
西暦 1931 年 = 6
西暦 1932 年 = 5
西暦 1933 年 = 4
西暦 1934 年 = 3
西暦 1935 年 = 2
西暦 1936 年 = 1
西暦 1937 年 = 9
西暦 1938 年 = 8
西暦 1939 年 = 7
西暦 1940 年 = 6
西暦 1941 年 = 5
西暦 1942 年 = 4
西暦 1943 年 = 3
西暦 1944 年 = 2
西暦 1945 年 = 1
西暦 1946 年 = 9
西暦 1947 年 = 8
西暦 1948 年 = 7
西暦 1949 年 = 6
西暦 1950 年 = 5
西暦 1951 年 = 4
西暦 1952 年 = 3
西暦 1953 年 = 2
西暦 1954 年 = 1
西暦 1955 年 = 9
西暦 1956 年 = 8
西暦 1957 年 = 7
西暦 1958 年 = 6
西暦 1959 年 = 5
西暦 1960 年 = 4
西暦 1961 年 = 3
西暦 1962 年 = 2
西暦 1963 年 = 1
西暦 1964 年 = 9
西暦 1965 年 = 8
西暦 1966 年 = 7
西暦 1967 年 = 6
西暦 1968 年 = 5
西暦 1969 年 = 4
西暦 1970 年 = 3
西暦 1971 年 = 2
西暦 1972 年 = 1
西暦 1973 年 = 9
西暦 1974 年 = 8
西暦 1975 年 = 7
西暦 1976 年 = 6
西暦 1977 年 = 5
西暦 1978 年 = 4
西暦 1979 年 = 3
西暦 1980 年 = 2
西暦 1981 年 = 1
西暦 1982 年 = 9
西暦 1983 年 = 8
西暦 1984 年 = 7
西暦 1985 年 = 6
西暦 1986 年 = 5
西暦 1987 年 = 4
西暦 1988 年 = 3
西暦 1989 年 = 2
西暦 1990 年 = 1
西暦 1991 年 = 9
西暦 1992 年 = 8
西暦 1993 年 = 7
西暦 1994 年 = 6
西暦 1995 年 = 5
西暦 1996 年 = 4
西暦 1997 年 = 3
西暦 1998 年 = 2
西暦 1999 年 = 1
西暦 2000 年 = 9
西暦 2001 年 = 8
西暦 2002 年 = 7
西暦 2003 年 = 6
西暦 2004 年 = 5
西暦 2005 年 = 4
西暦 2006 年 = 3
西暦 2007 年 = 2
西暦 2008 年 = 1
西暦 2009 年 = 9
西暦 2010 年 = 8


Create a new paste based on this one


Comments: