annotate src/ploki/examples/fibcheck.pk @ 5692:adcc7ace8cad
<hppavilion1_> learn `? Woooow you\'re sooooooooo metaaaa- No.
author |
HackBot |
date |
Wed, 24 Jun 2015 20:30:42 +0000 |
parents |
ac0403686959 |
children |
|
rev |
line source |
4223
|
1 #!../ploki
|
|
2 REM fibonacci sequence tester
|
|
3 REM sample input:
|
|
4 REM x x xx xxx xxxxx
|
|
5 REM x x x
|
|
6 FOR line LET line @LEGS \EING
|
|
7 IF line ; ""
|
|
8 IF line ~ "^s!*({[S!|[{S!}|[2!|1![1]?]{0!}[2]?][0]?]}s!+)+$"
|
|
9 "fibonacci sequence!
|
|
10 ELSE
|
|
11 "nope...
|
|
12 FI
|
|
13 NEXT line
|
|
14 FI
|