view runtime/macros/maze/mazeansi.c @ 22212:36af5cb8413c v8.2.1655

patch 8.2.1655: cannot build with Strawberry Perl 5.32.0 Commit: https://github.com/vim/vim/commit/895a7a472d2eb4413e63cdad3213cb1ef1633458 Author: Bram Moolenaar <Bram@vim.org> Date: Thu Sep 10 21:36:11 2020 +0200 patch 8.2.1655: cannot build with Strawberry Perl 5.32.0 Problem: Cannot build with Strawberry Perl 5.32.0. Solution: Use Perl_sv_2pvbyte_flags. (closes https://github.com/vim/vim/issues/6921)
author Bram Moolenaar <Bram@vim.org>
date Thu, 10 Sep 2020 21:45:03 +0200
parents 3fc0f57ecb91
children
line wrap: on
line source

char*M,A,Z,E=40,J[80],T[3];main(C){for(M=J+E,*J=A=scanf("%d",&
C)            ;--            E;J             [E            ]=M
[E   ]=  E)   printf("._");  for(;(A-=Z=!Z)  ||  (printf("\n|"
)    ,   A    =              39              ,C             --
)    ;   Z    ||    printf   (T   ))T[Z]=Z[A-(E   =A[J-Z])&&!C
&    A   ==             M[                                  A]
|6<<27<rand()||!C&!Z?J[M[E]=M[A]]=E,J[M[A]=A-Z]=A,"_.":" |"];}