problem i sml

Din funktion valg har typen

string -> 'a -> unit

fordi writeln returnerer unit. Derfor skal indreg også have returtypen unit, men du har givet den typen Koeretoej list -> Koeretoej list.

Når du har fikset det problem, vil du have et problem med din run funktion: den forsøger at kalde en funktion (valg) af typen string * 'a list -> <enEllerAndenType>, hvilket ikke matcher din definition af valg-funktionen.

En anden ting er at du ikke behøver at bruge and, da de to funktioner ikke er indbyrdes afhængige. I stedet kan du placere definitionen af indreg før definitionen af valg.

el gnu>> hvis du har et kode forslag til at løse disse problemer ville jeg være meget taknemmelig

el gnu>> bor du tilfældigvis i kbh området, og har du lyst til at tjene lidt håndører ved at hjælpe mig med en opgave ?

Jeg bor i Kbh.-området, men jeg får stillet to store karaktergivende opgaver i næste uge, hvilket medfører at mit liv bliver sat på stand-by den næste måneds tid, så det kan ikke lade sig gøre. Men jeg skal nok lige komme med et forslag til noget kode.

Jeg tænkte i morgen, du får 100 per time sort

Desværre, jeg har ikke tid. I stedet håber jeg at følgende kan hjælpe dig lidt på vej.

Jeg har udkommenteret valgmulighederne b-d. De funktioner der skal kaldes ved disse valgmuligheder skal returnere noget data af typen Koeretoej list (ligesom indreg).

load "Int";
fun readln() = let val ln = TextIO.inputLine(TextIO.stdIn)
        in String.substring(ln,0,(size ln)-1) end;
       
fun writeln x = (TextIO.output(TextIO.stdOut,x^"\n");
        TextIO.flushOut(TextIO.stdOut));

fun write x = (TextIO.output(TextIO.stdOut,x);
        TextIO.flushOut(TextIO.stdOut));

fun print_options () = writeln "(a) Indregistrering,(b)Afmelding,(c) Udskriv register, (d)Soegning :  ";
       
fun readreg () = (write " Registrerings nummer ? "; readln());
fun readejer () = (write " Ejer ? "; readln());
fun readvaegt () = (write " Vaegt ? "; readln());
fun readfarve () = (write " Farve ? "; readln());

datatype Koeretoej = Bil of string*string*string*string;

fun indreg (reg) =
    let
      val rn = readreg()
      val e = readejer()
      val v = readvaegt()
      val f = readfarve()
    in
      Bil(rn,e,v,f)::reg
    end
;

fun valg ("a", reg) = indreg (reg)
(*  | valg ("b", reg) = writeln (" er i b") *)
(*  | valg ("c", reg) = writeln (" er i c") *)
(*  | valg ("d", reg) = writeln (" er i d") *)
  | valg (x, _) = raise Fail("Ugyldig indtastning! (" ^ x ^ ")")
;

fun run (regLst) =
  let
    val _ = print_options()
    val i = readln()
  in
    run( valg(i, regLst) )
  end
;

run([]);
quit();

el gnu>> helt ok. tusind tak for hjælpen, og 200 meget velfortjente points til dig.

np :-)

PS: hvad laver du opgaver til?

lidt gamle datalogi opgaver jeg øver, for at lære sml

Læser du på DIKU? Jeg er selv på andet semester der...

Læser på RUC, bliver forhåbentlig bachelor her til sommer