Discordian date: Difference between revisions

Content added Content deleted

Inline

@@ Line 6: / Line 6: @@
 =={{header|J}}==
-<lang j>disc=: ((1+0 73#: -/@todayno@(,: ,&1 1))`(1 59j1"_)@.(2 29-:}.@[),~ 1166+]) {.</lang>
+<lang j>leap=: _1j1 * 0 -/@:= 4 100 400 |/ {.@]
+bs=: ((#:{.) + 0 j. *@[ * {:@]) +.
+disc=: ((1+0 73 bs[ +^:(58<]) -/@todayno@(,: 1 1,~{.)@]) ,~1166+{.@])~ leap</lang>
 Example use: