Revision as of 16:21, 16 August 2010 (view source) Rdm (talk \| contribs) (J: bug fix) ← Older edit		Revision as of 16:58, 16 August 2010 (view source) Rdm (talk \| contribs) (J: bug fix) Newer edit →
Line 6: =={{header\|J}}== <lang j>~~disc~~leap=: ~~((1+~~_1j1 * 0 ~~73#:~~ -/@~~todayno@(,~~:= ~~,&1~~4 ~~1))`(1~~100 ~~59j1"_)@.(2~~400 \|/ ~~29-:}~~{.@~~[),~ 1166+~~]~~) {.</lang>~~ bs=: ((#:{.) + 0 j. @[ {:@]) +. disc=: ((1+0 73 bs[ +^:(58<]) -/@todayno@(,: 1 1,~{.)@]) ,~1166+{.@])~ leap</lang> Example use:

Discordian date: Difference between revisions

Discordian date (view source)