\documentclass[tate]{jlreq}

\usepackage{luacode}
\begin{luacode*}
-- adapted from https://tex.stackexchange.com/a/451951

-- We need some utilities from ConTeXt
callbacks = callbacks or {}
callbacks.supported = callbacks.supported or {}
dofile(kpse.find_file("util-fmt.lua"))
dofile(kpse.find_file("node-ini.lua"))
dofile(kpse.find_file("font-mps.lua"))
-- dofile(kpse.find_file("font-shp.lua")) -- unnecessary on current TeX version

-- That's a simple REImplemetation of ConTeXt's \showshape macro
function outlinejfontpaths(character)
    local fontid = font.current()
    -- prioritise using tate luatexja font
    local curjfnt = tex.getattribute('ltj@curjfnt')
    local curtfnt = tex.getattribute('ltj@curtfnt')
    if curjfnt >= 0 then
        fontid = curjfnt
    end
    if curtfnt >= 0 then
        fontid = curtfnt
    end

    local shapedata   = fonts.hashes.shapes[fontid] -- by index
    local chardata    = fonts.hashes.characters[fontid] -- by unicode
    local shapeglyphs = shapedata.glyphs or { }

    character = utf.byte(character)
    local c = chardata[character]
    if c then
        if not c.index then
            return {}
        end
        local glyph = shapeglyphs[c.index]
        if glyph and (glyph.segments or glyph.sequence) then
            local units  = shapedata.units or 1000
            local factor = 100/units
            local paths  = fonts.metapost.paths(glyph,factor)
            return paths
        end
    end
end
\end{luacode*}

\usepackage{luamplib}
\mplibsetformat{metafun}
\everymplib{beginfig(0);}
\everyendmplib{endfig;}

\edef\letterhash{\string#}
\def\mpdefineoutlines#1#2{\directlua{
    local char = "\luaescapestring{#2}"
    local outlines = outlinejfontpaths("#1")
    local len = \letterhash outlines
    tex.print("path " .. char .. "[];")
    tex.print(char .. "n := " .. len .. ";")
    for i, path in ipairs(outlines) do
        tex.print(char .. "[" .. i .. "] := " .. path .. ";")
    end
}}

\newbox\mympbox

\setbox\mympbox\hbox{
\begin{mplibcode}
pair shift; shift := (0pt,-27pt);

\mpdefineoutlines{一}{ICHI}
\mpdefineoutlines{レ}{REI}

path r;
numeric n; n := 0;

r := ICHI[1];
forever:
    pair q;
    r := r cutbefore (reverse REI[1] shifted (shift) );
    exitif length cuttings = 0;
    r := subpath(epsilon, length r) of r;
    q = point 0 of r;
    n := n + 1;

    drawdot(q);
endfor;

\end{mplibcode}
}

\newcommand\countmp{\directlua{tex.sprint(node.length(tex.box.mympbox.head))}}

\begin{document}

\countmp

\end{document}

\documentclass{ltjtarticle}
\usepackage[match]{luatexja-fontspec}
\setmainjfont{Yu Gothic}
\usepackage[ichire]{kanbun}

\Kanbun
孤之有ルハ[二]孔明[一]，猶ホ‹ごと›«キ»[二]魚之有ルガ[一レ]水也。
\EndKanbun

\begin{document}
    \printkanbun
\end{document}