Haskell Compiler frage?

Hallo,

ich habe das hier stehen:

alternative :: [Integer] -> Integer
alternative = foldr (\x ys-> if (x `mod` 11 == 0) then 13 + ys else x * ys) 7

Wieso muss ich keine Variable angeben in der Funktionsdefinition? Sowas wie alternative xs = foldr .. .. xs. Ich hätte erwartet, dass er sich beschwert, das nicht genug Argumente an foldr übergeben wurden wenn ich das nicht mache, aber es läuft ohne Probleme. Hat das was mit Eta reduction zu tun?

Schonmal vielen Dank:))

1 Antwort

Vom Fragesteller als hilfreich ausgezeichnet

aperfect10

25.11.2023, 15:36

Exakt, da passiert eine Eta-Conversion. Du hättest auch schreiben können:

alternative :: [Integer] -> Integer
alternative = \list -> foldr (\x ys-> if (x `mod` 11 == 0) then 13 + ys else x * ys) 7 list

\x -> f x

und

sind äquivalent.

Ähnliche Fragen

Haskell Funktion Frage?

Wenn man eine Funktion erstellen soll, bei der die Funktion zwei Werte nimmt und prüft, ob ein Wert durch den anderen teilbar ist, wie schreibt man das in Haskell als Code?

nehmen wir an:

isDivisible -> Integer -> Integer -> Bool

Wie schaut dann der Rest aus? So?

isDivisible x % y == 0 = true else false

y % x == 0 = true else false?? Das klingt so bescheuert aber ich weiß sonst nicht wie es aussehen sollte! Kann mir da wer weiterhelfen?

Zusätzlich müsste ich dann auch eine Funktion schreiben, die so aussieht:

isPrime -> Integer -> Bool

welches eine Zahl nimmt und ausgibt ob diese eine Primzahl ist oder nicht, dafür soll ich die vorherige Funktion benutzen, jedoch komm ich da eben nicht weiter. Und bei der hier bin ich mir auch nicht sicher, wie würde da der Code aussehen?

...zur Frage

Wert passt nicht in (Java) Long

Hallo Experten, ich schreibe grade an einem kleinen Programm und möchte dazu die Zahl 17000000000000 (17Billionen) in einer Variable Speichern.
Das eine normale integer (int) da nicht reicht war mir klar aber laut compiler bzw. NetBeans passt der Wert auch nicht in den Datentyp long.
Das verstehe ich allerdings nicht, da doch der Typ long laut aller Quellen Werte bis 9223372036854775807 (2^63-1) aufnehmen kann. Das ist klar größer als die 17Billionen wenn ich das richtig sehe.

. 17000000000000 9223372036854775807

Warum passt das dann trotzdem (angeblich) nicht? und wie kann ich das dann besser speichern? Auch bei double behauptet der compiler das würde nicht passen...

...zur Frage

Platzhalter in C?

Ich habe folgende Zeile in meinem C code.

printf("The given value is not divisble by seven!\n");

Ich habe eine Variable des Typs Integer namens n und habe dieser Variable den Wert 13 zugewiesen, und ich würde gern wissen wie ich es hinbekommen dass folgendes steht:

printf("The given value 13 is not divisble by seven!\n");

Ich könnte auch einfach 13 reinschreiben, ich möchte aber gerne wissen wie man Platzhalter in so einer Situation richtig verwendet.

Ich hab versucht ein %d als Platzhalter reinzuquetschen da es ja eine Ganzzahl ist aber das funktioniert nicht:

printf("The given value "%d" is not divisble by seven!\n", n);

Es erscheint immer eine Fehlermeldung "d is undeclared", wo liegt der Fehler?

Falls euch das nicht reicht kann ich euch den ganzen Code reinkopieren, es geht hier lediglich um eine "if else" Übung.

...zur Frage

Struktuelle Induktion auf Bäumen?

Aufgabe:

Betrachten wir die folgenden Funktionsdefinitionen :

data Tree a = Leaf a | Node a (Tree a) (Tree a)

sumLeaves :: Tree a -> Integer

sumLeaves (Leaf x) = 1

sumLeaves (Node _ lt rt) = sumLeaves lt + sumLeaves rt

sumNodes :: Tree a -> Integer

sumNodes (Leaf x) = 0

sumNodes (Node _ lt rt) = 1 + sumNodes lt + sumNodes rt

Beweisen Sie mittels struktureller Induktion, dass für alle endlichen Bäume t :: Tree a gilt:

sumLeaves t = sumNodes t + 1

...zur Frage

Beweis durch strukturelle Induktion?

Wir haben folgende Funktionen:

prod :: [Int] -> Int

prod [] = 1 -- prod.1

prod (x:xs) = x * prod xs -- prod.2

foldl :: (b -> a -> b) -> b -> [a] -> b

foldl f acc [] = acc -- foldl.1

foldl f acc (x:xs) = foldl f (f acc x) xs -- foldl.2

Aufgabe:

Man soll mit struktureller Induktion beweisen, dass folgende Aussage gilt:

foldl (*) 1 xs = prod xs

Ich habe momentan:

foldl (*) 1 xs = prod xs

I.A. (xs = []):

foldl (*) 1 [] = prod []

foldl f acc [] = acc prod [] = 1 -- foldl.1 & plod.1

foldl f 1 [] = 1

1 = 1

I.V.: Wir nehmen an, dass die Aussage gilt für ein beliebiges xs

I.S. (xs -> x:xs):

foldl (*) 1 (x:xs) = prod (x:xs) -- foldl.2 & prod.2

foldl (*) ((*) 1 x) xs = x * prod xs

Problem: Ich weiß nun nicht wie ich mit dem Induktionsschritt fortfahren soll.

...zur Frage

Integer parsen in C?

Wie parse ich ein Integer in C? Sodass ich nur

./a.out 5

eingeben muss und dann die 5 "verarbeitet" werden kann?

Habe es so probiert:

#include <stdio.h>
int foo(int n)
{
	return n*(n+1)/2;
}
int main(int argc, char* argv[])
{
	int sum = foo(argv[1]);
	printf("%d\n", sum);
	return 0;
}

jedoch funktioniert es nicht, beim gcc compiler kommt das:

warning: passing argument 1 makes integer from pointer without a cast [-Wint-conversion]  int sum = foo(argv[1]);

note: expected ‘int’ but argument is of type ‘char *’ int foo(int n)

Es wird zwar kompiliert, aber bei jeder durchführung mit den selben Variablen kommt immer was anderes raus.

$ foo 10
-737864039

$ foo 10
-118866279

$ foo 10
79058585

Dann habe ich es ein bisschen umgeschrieben und die Variable mit scanf eingelesen und da hat es funkioniert, sonst aber nicht. Was muss ich denn ändern?

...zur Frage

Die Funktion soll sich nach Beendigung der Rekursion wiederholen?

Ich versuche, Bubblesort in Haskell zu implementieren:

bsort:: (Ord a) => [a] -> [a]
bsort [] = []
bsort [x] = [x]
bsort (x:y:xs)
    | x <= y = x: bsort(y:xs)
    | x >= y = y: bsort(x:xs)

Nachdem die Funktion ausgeführt wurde, wird der gesamte Vorgang nicht noch einmal wiederholt, so dass die Liste nicht vollständig sortiert ist. Wie kann ich der Funktion sagen, dass sie sich wiederholen soll, bis die Liste vollständig sortiert ist?

Wenn ich zum Beispiel eintippe: bsort [1,5,2,4] erhalte ich [1,2,4,5]

aber wenn ich eintippe: bsort [9,6,1,5,2,4] erhalte ich [6,1,5,2,4,9], wie sage ich, dass der Prozess mit [6,1,5,2,4,9] wiederholt werden soll?

...zur Frage

VBS Variable in eine .txt Datei schreiben?

Hallo liebe Community,

Ich habe gestern mit vbs angefangen und habe eine Frage:Wie kann ich eine Variable in eine .txt Datei schreiben

script:

text = inputbox("Du:")

set fs = createobject("scripting.filesystemobject")

set file = fs.openTextFile("a.vbs", 8, true)

test = text

file.writeline ""

file.writeline "if text = test then"

file.writeline "msgbox(test)"

file.writeline "else"

Die Ausgabe ist:

if text = test then

msgbox(text)

else

Nun soll test aber der Inhalt der Inputbox sein aber,text soll text bleiben.

Bitte mit Erklärung,bin nunmal anfänger

...zur Frage

Ki programmieren für Anfänger?

Hallo

Ich habe noch nie eine KI programmiert und wollte es deshalb wollte ich mal mit Tensorflow es ausprobieren. Bei mir hat es funktioniert nur wenn ich mein Netz trainiere wird bei mir "loss: nan" angezeigt.

Mein Code:

import tensorflow as tf #Für neuronale netze
from tensorflow import keras #Für daten und andere dinge
model = tf.keras.Sequential([keras.layers.Dense(units=1, input_shape=[1])]) #Hier definieren wir das model
model.compile(optimizer='sgd', loss='mean_squared_error') # Compilieren wir das Model


#Daten generieren
xs = list()
for x in range(0, 1000):
 xs.append(x)
ys = list()
for x in range(0, 1000):
  ys.append( xs[x] ** (1 / 2) ) #Für jedes Elemnt die quadratwurzel berechnen


#Netz trainieren
model.fit(xs, ys, epochs=1000)


#Ki Konsole
print("Hallo frage bei mir die quadrat wurzel ab")
print("Tippe exit zum beenden")
while True:
  inp = input("$ ")
  if inp == "exit": break
  else:
    print(model.predict([float(inp)])

Wenn ich es trainiere und abfrage:

Wisst ihr wiré ich das beheben kann? Also das bei "loss:" der Wert angezeigt wird und wen ich abfrage auch kein "loss:" angezeigt bekomme sondern den passenden wert.?

TheCPP

...zur Frage

Roblox Studio Script funktioniert nicht!Was kann ich tun?

Hallo : - )

Ich bin gerade dabei bei Roblox studio ein Tycoon zu programmieren aber ich komme nicht weiter.

Also, ich habe einen Dropper gebaut , der auch funktioniert .

Jetzt habe ich noch eine BooleanValue erstellt , mit der man den Dropper an und aus schalten können soll.

Also hab ich den Script vom Dropper noch in einer if loop verpackt.

Aber der Script bemerkt nicht wenn ich die Variable verändere.

Wenn ich Variable auf true stelle und dann einen Testlauf starte, dann ist der Dropper aktiv, aber wenn ich dann während des Testes die Variable auf false stelle , dann hört der Dropper nicht auf sondern macht einfach weiter.

Anderstherum ist es genauso:

Wenn ich die Variable auf false stelle und dann einen Testlauf starte , dann ist der dropper wie geplant nicht aktiv, aber wenn ich dan währen des Testlaufes die Variable auf true stelle, dann fängt der Dropper nicht an sondern bleibt einfach inaktiv.

Hier ist der Script von meinem Dropper:

___________________________________________________________________________________

wait(3)

while true do

if script.Parent.Value.Value == true then

wait(3)

print('true detected')

local droppart = Instance.new('Part',game.Workspace)

droppart.Size = Vector3.new(1,1,1)

droppart.Position = script.Parent.Orientation.Position

droppart.Name = 'DesktopCoin1'

droppart.Material = Enum.Material.Neon

droppart.BrickColor = BrickColor.new('CGA brown')

else

if script.Parent.Value.Value == false then

print('false detected')

end

________________________

Vielen Dank im Vorraus : )

Ps: ich versuche noch einen Screenshot vom Explorer hinzuzufügen:

Der Script vom Dropper heißt PartValue, und untendrunter das ist die BooleanValue

_____

Hier noch ein Screenshot vom Script:

_________

Vielen Dank fürs lesen XD

...zur Frage

Die anweisung ist in einem Namespace ungültig?

Ich habe eine Anleitung aus dem Internet für ein Zahlen generator kopiert

Dim Zahl As Integer 'zufallsgenerierte Zahl Dim Counter As Integer 'Zähler der Versuche

Private Sub btn_click_Click()

Dim Eingabe As Integer 'Eingegebene Zahl

'Zufallszahl generieren If Zahl = 0 Then Zahl = Int((Rnd() * 100) + 1) End If

'geschätzte Zahl eingeben Eingabe = tb_eingabe.Value

'Gültigkeitsprüfung If Eingabe > 100 Or Eingabe < 1 Then MsgBox ("Bitte geben Sie eine Zahl zwischen 1 und 100 ein!") tb_eingabe.Value = "" Else 'Richtige Eingabe If Eingabe = Zahl Then Cells(Counter + 2, 1) = Eingabe Cells(Counter + 2, 2) = "geschätzte Zahl richtig!"

    'Abfrage zum erneuten Spielen
    Abfrage = MsgBox("Richtig! Gebrauchte Versuche: " & Counter + 1 & vbLf & "Wollen Sie noch einmal spielen?", vbYesNo)
    If Abfrage = vbNo Then
        Application.Quit
    Else
        Columns("A:B").Select
        Selection.ClearContents
        Range("A1").Select
        ActiveCell.FormulaR1C1 = "geschätzte Zahl"
        Range("B1").Select
        ActiveCell.FormulaR1C1 = "Tipp"
        Range("A2").Select
        Zahl = 0
        Counter = 0
        tb_eingabe.Value = ""
        Exit Sub
    End If
End If

'eingegebene Zahl ist größer
If Eingabe > Zahl Then
    Cells(Counter + 2, 1) = Eingabe
    Cells(Counter + 2, 2) = "geschätzte Zahl zu groß"
    tb_eingabe.Value = ""
    Counter = Counter + 1
End If

'eingegeben Zahl ist kleiner
If Zahl > Eingabe Then
    Cells(Counter + 2, 1) = Eingabe
    Cells(Counter + 2, 2) = "geschätzte Zahl zu klein"
    Counter = Counter + 1
    tb_eingabe.Value = ""
End If

End If

End Sub

als Fehler kommen Die anweisung ist in einem Namespace ungültig wenn ich rauf klicke markiert er

Dim Zahl As Integer Dim Counter As Integer

Private Sub btn_click_Click()

(ganz oben) kann mir wer den code richtig machen?

...zur Frage

MS Excel Makro Pausieren ohne Excel komplett zu pausieren?

Hi, Ich arbeite an einer art "Schiffe Versenken" für MS Excel und arbeite grade daran, dass man auf Zeit Spielen kann. dafür brauche ich logischerweise nen Timer, der die eingestellte Zeit Herunterzählt und das Spiel Beendet. Das war kein Großes Problem für mich, bis auf eine Sache: Das Makro funktioniert zwar, aber ich habe keinen Befehl gefunden der es zulässt, dass man, während der Timer läuft, noch das Spielfeld benutzen kann, da auch Excel pausiert wird und keine Änderung an den Zellen zulässt. Kennt einer von euch einen Befehl, bei dem nur das Makro angehalten wird und nicht das komplette Programm? Mein Makro sieht bis jetzt so aus:

Sub Schaltfläche1_Klicken()

Dim SE As Integer

Dim MN As Integer

Dim I As Integer

I = 0

Do While I = 0

I = 0

SE = Sheets("Eigene Flotte").Range("O26").Value

MN = Sheets("Eigene Flotte").Range("N26").Value

If SE > 0 Then

SE = SE - 1

Sheets("Eigene Flotte").Range("O26").Value = SE

Else

If MN > 0 Then

MN = MN - 1

SE = 59

(hier soll der Befehl zum Pausieren hin)

Sheets("Eigene Flotte").Range("O28").Value = SE

Sheets("Eigene Flotte").Range("N26").Value = MN

Else

Range("A1:L30").Value = ""

I = 1

End If

Loop

End Sub

...zur Frage

Haskell Vektoren addieren?

Hey, die Aufgaben lauten:

1. Eine Funktion schreiben die Vektoren addiert

2. Eine Funktion die Skalarprodukt berechnet und

3. Eine Funktion die anhand des Skalarprodukts bestimmen kann, ob der Winkel rechtwinklig ist.

Meine Ansätze:

addVectors:: (Num a) => a -> a -> a

addVectors (a1, a2, a3) (b1, b2, b3) = (a1 + b1) (a2 + b2) (a3 + b3)

scalarProduct:: (Num a) => a -> a -> a

scalarProduct (a1, a2, a3) (b1, b2, b3) = (a1 * b1) (a2 * b2) (a3 * b3)

Da bin ich mir nicht sicher wie ich es Ausdrücken soll. Am Ende soll halt True rauskommen. Das wahrscheinlich, wenn das Skalarprodukt 0 ergibt.

...zur Frage

Excel VBA Button Enable?

Hallo Freunde,

Ich habe einen Button in Excel implementiert, der sichtbar sein soll wenn meine Zelle A1 die Zahl 2 enthält.

Der Code dafür lautet:

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
  On Error GoTo ErrHandler
  Dim rngButton1 As Integer
  rngButton1 = A1
  If rngButton1 = 2 Then
  CommandButton1.Enabled = False
  Else
  CommandButton1.Enabled = True
  End If
  Application.EnableEvents = True
Exit Sub
ErrHandler:
Application.EnableEvents = True
End Sub

Der Code funktioniert an und für sich, es kommt zu keiner Fehlermeldung.
Aber der Button bleibt egal was ich einstelle, Sichtbar.

Wo liegt der Fehler?

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen