PureBasic Forums - English

Posted: **Sun Jan 11, 2015 2:10 pm**

Just a little challenge for your brain cells

Try to guess what the below code does before running it.

OpenConsole()
s$ = "#" 
z$ = "561860" ;  also try 7988647 or 452 
k$ = "11010011100203011111033330102003010110100111103330"
For i = 1 To 5
  a$ = ""
  For x = 1 To Len(z$) 
    j$ = Mid(z$,x,1)
    y=Val(Mid(k$,Val(j$)*5+i,1))*8
    a$+ " "+ Mid( s$+s$+s$+s$+s$+s$+s$+s$+s$  +"              "+s$+s$ +"      "+s$, y+1, 8)
  Next
    PrintN (a$)
Next
Delay(1234)

Posted: **Sun Jan 11, 2015 2:41 pm**

No, but must be the source of banner for Unix

z$ = "01223"
k$ = "33033010101111003330"

Posted: **Wed Jan 14, 2015 12:22 am**

luis wrote:No, but must be the source of banner for Unix

z$ = "01223"
k$ = "33033010101111003330"

Nice.

I actually wasn't aware of the Unix banner utility. The code is in fact adapted from an old codegolf challenge.

PureBasic Forums - English

Can you guess what this 14-line program does?

Can you guess what this 14-line program does?

Re: Can you guess what this 14-line program does?

Re: Can you guess what this 14-line program does?