String-liste til Int-liste.

Sætter pointene lidt op.

Det skal vel bare komme til at se således ud:
[[7,1,5],[8,-2,1]osv...]

følgende skal bruges
funktion til at explode en string
funktion til at rense kommaer ud af den explodede string og samtidig gøre hvert char til sin egen string
funktion til at lave string om til int option for derefter at finde option
funktion til at køre ovenstående..

Kan prøve at komme med et udkast?

load "Int";

val stringListe = ["7,1,5", "8,~2,1", "0,3,4", "0,5,~1", "10,5,3", "7,~8,1", "~5,8,0", "4,5,6"]

(* Danner en Char liste fra en String *)
fun StringToCharListe x = explode x

(* Fjerner kommaer samt sætter minuset sammet med Char´en for tallet *)
fun OnlyInt x = let fun RemoveComma []      = []
                      | RemoveComma (y::ys) = if y = #"," then RemoveComma ys
                                                  else y::RemoveComma ys
                    fun PasteMinus []      = []
                      | PasteMinus (z::zs) = if z = #"~" then (implode[z,hd zs])::PasteMinus (tl zs)
                                                else (implode [z])::PasteMinus zs
                in PasteMinus(RemoveComma x)
                end

(* Danner en int liste af en string indeholdende tre int sepereret med to kommaer *)                         
fun ExtractIntFromString x = [valOf(Int.fromString(List.nth(x,0))),valOf(Int.fromString(List.nth(x,1))),valOf(Int.fromString(List.nth(x,2)))]

(* Danner en int liste fra en liste af strings som beskrevet ovenfor *)
fun IntListeFromStringListe x = let fun GetInt []      = []
                                      | GetInt (y::ys) = (ExtractIntFromString(OnlyInt(StringToCharListe y)))::GetInt ys
                                in GetInt x
                                end

val IntListe = IntListeFromStringListe stringListe ;

kan se at sammenhængen ikke er så god her
så skriv en email adresse hvis det er ... så finder vi ud af det :o)

Jeg har lavet en lille fejl. Uddata er:
"[0.0,5.0,5.0][0.0,-5.0,5.0][0.0,-5.0,-5.0][0.0,5.0,-5.0][10.0,5.0,5.0][10.0,-5.0,5.0][10.0,-5.0,-5.0][10.0,5.0,-5.0]" : string

Så det endelige data skal nok være en liste af lister med tal af typen Real i.
Hjælper det eller skal vi stadig snakke over mail?

Det gør jo ikke så meget - så skal der bare rettes til Real.fromString i stedet for Int.fromString

jeg får fejlen:

! Type clash: expression of type
!  string
! cannot have type
!  string list

ahh jo så er det jo en forskel - men jeg må desværre springe fra her, da det mistænkelig meget minder om noget jeg har eksamens opgave i nu! og vil ikke risikere at få at vide jeg har lavet eksamens snyd :o( .... sorry men held og lykke

Ser således ud, bare for du kan tjekke ;-)

(* Danner en Char liste fra en String *)
fun StringToCharListe x = explode x

(* Fjerner kommaer samt sætter minuset sammet med Char´en for tallet *)
fun OnlyInt x = let fun RemoveComma []      = []
                      | RemoveComma (y::ys) = if y = #"," then RemoveComma ys
                                                  else y::RemoveComma ys
                    fun PasteMinus []      = []
                      | PasteMinus (z::zs) = if z = #"~" then (implode[z,hd zs])::PasteMinus (tl zs)
                                                else (implode [z])::PasteMinus zs
                in PasteMinus(RemoveComma x)
                end

(* Danner en int liste af en string indeholdende tre int sepereret med to kommaer *)                         
fun ExtractIntFromString x = [valOf(Real.fromString(List.nth(x,0))),valOf(Real.fromString(List.nth(x,1))),valOf(Real.fromString(List.nth(x,2)))]

(* Danner en int liste fra en liste af strings som beskrevet ovenfor *)
fun IntListeFromStringListe x = let fun GetInt []      = []
                                      | GetInt (y::ys) = (ExtractIntFromString(OnlyInt(StringToCharListe y)))::GetInt ys
                                in GetInt x
                                end

Øh... ok! Det er jeg da ked af at høre :-(

Andre?

Ja sorry - men vil ikke risikere noget
Der står jo højt at man ikke må udveksle program dele men kun må diskutere...
Sååå ved ikke rigtig. Vil helt være på den sikre side

Nådada. har så ogsaa et lille problem til.
tror ikke det er kodeudveksling eller noget som kan risikerer noget.

men hvordan laver jeg "[lars,19,dreng][pia,21,pige][torben,19,dreng]" om til
["lars,19,dreng","pia,21,pige","torben,19,dreng"]?

Det er samme koncept som det øverste:
Hvis du har en streng så explode den
Kør derefter rekursivt på elementerne (som er chars)
Rekursionen går ud på at du starter fra venstre og drøner mød højre imens du undersøger dine Chars (enten som if then else - eller som case)
Fra du når et #"[" til du når et #"]" skal alt imellem implodes og sættes foran et nyt kald til halen
Således får streng om til en liste af strenge

hvis der kommer et lille kodeeksempel fra din side er pointene dine =)

please!!!!! =D

så lukker jeg spoergsmaalet =)

noget a la det her grove eksempel :

fun listeFraStreng x =let val y = explode x
                          fun fjernklamme []=[]
                            | fjernklamme (z::zs)=if z=#"[" then fjernklamme zs
                                                  else z::fjerklamme zs
                          fun danliste []=[]
                            | danliste (q::qs)=if q<>#"]" then q::danliste qs
                                              else danliste qs
                          fun rettil [] =[]
                            | rettil (w::ws)= (implode w)::rettil ws
                      in rettil(danliste(fjernklamme x)
                      end

det er muligt den ikke gør det helt korrekt
Men ideen er vel at hvis [ og ] er overflødige - så først fjerne den ene
Dernæst danne en liste som skilles af den anden klamme
og så huske at implode det rigtige sted i programmet
så der ikke kommer en liste med kun et stort element

og hvis ellers det er - så smid en mail adresse, så må vi jo mødes på skolen, eller spørg en instruktor

eikhorsholm@ofir.dk

Hvordan kan der være syntaktsfejl her:

fun listeFraStreng x = let val y = explode x
                          fun fjernklamme [] = []
                            | fjernklamme(z :: zs) = if z = #"[" then fjernklamme zs else z :: fjerklamme zs
                          fun danliste [] = []
                            | danliste(q :: qs) = if q <> #"]" then q :: danliste qs else danliste qs
                          fun rettil [] = []
                            | rettil(w :: ws) = (implode w) :: rettil ws
                      in rettil(danliste(fjernklamme y)
                      end;

Ok ,lige meget. det er mig som sejler!
tak skal du have busschou =)

der mangler en parantes neders :
rettil(danliste(fjernklamme y))

nu for jeg godt nok fejl:

! Type clash: expression of type
!  char list
! cannot have type
!  char list list

det er fordi den forventer en char list list - men du kun giver den en char list
så der hvor den giver dig fejlen må du rette til

ok. tak igen ;)

jeg må desværre smutte... men pøj pøj med det