use char->number from common in day 5

05-hydrothermal-venture/code.scm

@@ -1,8 +1,5 @@
 (import (srfi :43)) ; vector extensions
-
-; returns numbers 0 to 9 from ascii character
-(define (char->number c)
-  (- (char->integer c) 48)) ; 48 is ASCII's number zero
+(load "../common.scm")
 
 ; reads a numnber from input
 ; also consumes the next non-number character in the file!