view runtime/macros/maze/mazeansi.c @ 8800:f57949e1e9f1 v7.4.1688

commit https://github.com/vim/vim/commit/67c2c058ea34628bd575aac7ddba4cd3b244ed57 Author: Bram Moolenaar <Bram@vim.org> Date: Wed Mar 30 22:03:02 2016 +0200 patch 7.4.1688 Problem: MzScheme does not support partial. Solution: Add minimal partial support. (Ken Takata)
author Christian Brabandt <cb@256bit.org>
date Wed, 30 Mar 2016 22:15:10 +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,"_.":" |"];}