diff options
| author | Andreas Grois <andi@grois.info> | 2025-12-17 07:30:19 +0100 |
|---|---|---|
| committer | Andreas Grois <andi@grois.info> | 2025-12-17 07:30:19 +0100 |
| commit | dcebd44260fa67b04d217e778265982393ccc032 (patch) | |
| tree | b8eaf3de339d7a389632123c4765c53cce507a44 /day4/parseln.TXT | |
| parent | 7c225da26c5be1c255db34b52548b3af49097b07 (diff) | |
Diffstat (limited to 'day4/parseln.TXT')
| -rw-r--r-- | day4/parseln.TXT | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/day4/parseln.TXT b/day4/parseln.TXT new file mode 100644 index 0000000..10e6e3b --- /dev/null +++ b/day4/parseln.TXT @@ -0,0 +1,20 @@ +\START92\
+\COMMENT=Converts an input line to a binary number
+\NAME=parseln
+\FILE=day4.parseln.92f
+(s)
+Func
+Local l,i,c,result
+0\->\result
+dim(s)\->\l
+For i,1,l
+ mid(s,l-i+1,1)\->\c
+ result*2\->\result
+ If c="@" Then
+ 1+result\->\result
+ EndIf
+EndFor
+result
+EndFunc
+
+\STOP92\
|