Compare commits
No commits in common. "f40104937d549f65b9cec2ac3b505e2063011123" and "2957e0b82aa6a86577d363e6ce9ce1070be8b865" have entirely different histories.
f40104937d
...
2957e0b82a
@ -1,13 +0,0 @@
|
||||
-module(day1).
|
||||
-export([charcount/1]).
|
||||
-export([counter/1]).
|
||||
-export([print/1]).
|
||||
|
||||
charcount([]) -> 0;
|
||||
charcount([_ | Rest]) -> 1 + charcount(Rest).
|
||||
|
||||
counter(10) -> 10;
|
||||
counter(N) -> counter(N + 1).
|
||||
|
||||
print(success) -> io:write("success");
|
||||
print({error, Message}) -> io:write(unicode:characters_to_list(["error: ", Message], utf8)).
|
||||
16
io/day1.io
16
io/day1.io
@ -1,16 +0,0 @@
|
||||
# Io ist stark typisiert, weil z.B. 1 + "one" nicht funktioniert / Fehler schmeißt
|
||||
# 0 entspricht true; "" entspricht true; nil entspricht false
|
||||
# um Slots eines Prototypen zu entdecken: Prototype slotNames
|
||||
# = um zu einen bereits existierenden / gesetzten Slots zu setzen; ansonsten Fehler
|
||||
# := um einen Slot, auch wenn er nicht existiert, zu setzen (=erstellen)
|
||||
# ::= um einen Slot, auch wenn er nicht existiert, zu setzen (=erstellen) und einen Setter zu erstellen?
|
||||
|
||||
|
||||
"Hallo Welt aus einer Datei" println
|
||||
|
||||
myObject := Object clone
|
||||
myObject customField := method(
|
||||
"Hallo Welt aus einer Methode!" println
|
||||
)
|
||||
|
||||
myObject customField
|
||||
141
io/day2.io
141
io/day2.io
@ -1,141 +0,0 @@
|
||||
# Task 1:
|
||||
fib := method(i,
|
||||
if(i==0) then(return 0)
|
||||
if(i==1) then(return 1)
|
||||
|
||||
return fib(i - 2) + fib(i - 1)
|
||||
)
|
||||
|
||||
fib_loop := method(i,
|
||||
r := 0
|
||||
s := 0
|
||||
t := 1
|
||||
|
||||
for(j, 2, i, 1, r := s; s := t; t := r + s)
|
||||
|
||||
return t
|
||||
)
|
||||
|
||||
fib(1) println
|
||||
fib(2) println
|
||||
fib(3) println
|
||||
fib(4) println
|
||||
fib(5) println
|
||||
fib(6) println
|
||||
fib(7) println
|
||||
fib(8) println
|
||||
|
||||
"=====================================" println
|
||||
|
||||
fib_loop(1) println
|
||||
fib_loop(2) println
|
||||
fib_loop(3) println
|
||||
fib_loop(4) println
|
||||
fib_loop(5) println
|
||||
fib_loop(6) println
|
||||
fib_loop(7) println
|
||||
fib_loop(8) println
|
||||
|
||||
# Task 2:
|
||||
Number old_div := Number getSlot("/")
|
||||
|
||||
Number / = method(divisor,
|
||||
if(divisor == 0, 0, self old_div(divisor))
|
||||
)
|
||||
|
||||
"Testing Task 2:" println
|
||||
(6 / 0) println
|
||||
(6 / 3) println
|
||||
|
||||
# Task 3:
|
||||
"Task 3:" println
|
||||
|
||||
arr := list(list(1, 2, 3), list(4, 5, 6), list(7, 8, 9))
|
||||
arr_sum := 0
|
||||
for(i, 0, arr size - 1, 1, i println; arr_sum = arr_sum + arr at(i) sum)
|
||||
arr_sum println
|
||||
|
||||
# Task 4:
|
||||
"Task 4:" println
|
||||
|
||||
List myAverage := method(
|
||||
self sum / self size
|
||||
)
|
||||
|
||||
list(1, 2, 3, 4) myAverage println
|
||||
# list() myAverage println
|
||||
|
||||
# Task 5, 6, 7:
|
||||
"Task 5, 6, 7:" println
|
||||
|
||||
Matrix := Object clone
|
||||
Matrix dim := method(x, y,
|
||||
self content := list()
|
||||
self y := y
|
||||
self x := x
|
||||
for(i, 1, y, 1,
|
||||
self content push(list())
|
||||
|
||||
for(j, 1, x, 1,
|
||||
self content at(i - 1) push(0)
|
||||
)
|
||||
)
|
||||
)
|
||||
Matrix set := method(x, y, value,
|
||||
self content at(y) atPut(x, value)
|
||||
)
|
||||
Matrix get := method(x, y,
|
||||
self content at(y) at(x)
|
||||
)
|
||||
Matrix writeToFile := method(filename,
|
||||
file := File clone openForUpdating(filename)
|
||||
|
||||
for(i, 1, y, 1,
|
||||
for(j, 1, x, 1,
|
||||
file write(self content at(i - 1) at(j -1) asSimpleString, " ")
|
||||
)
|
||||
|
||||
file write("\n")
|
||||
)
|
||||
)
|
||||
Matrix readFromFile := method(filename,
|
||||
file := File clone openForReading(filename)
|
||||
lines := file readLines
|
||||
|
||||
x := lines first split size
|
||||
y := lines size
|
||||
|
||||
self dim(x, y)
|
||||
|
||||
lines foreach(i, line, line split foreach(j, v, self content at(i) atPut(j, v)))
|
||||
)
|
||||
|
||||
matrixOne := Matrix clone
|
||||
matrixOne dim(2, 3)
|
||||
matrixOne content println
|
||||
matrixOne set(1,1, 20)
|
||||
matrixOne get(1,1) println
|
||||
matrixOne writeToFile("matrix.txt")
|
||||
|
||||
matrixTwo := Matrix clone
|
||||
matrixTwo readFromFile("matrix.txt")
|
||||
matrixTwo content println
|
||||
|
||||
# Task 8:
|
||||
"Task 8:" println
|
||||
lastGuess := 0
|
||||
numberOfGuesses := 0
|
||||
targetNumber := (Date asNumber * 70) round % 100
|
||||
|
||||
while(numberOfGuesses < 10,
|
||||
input := File standardInput() readLine() asNumber()
|
||||
|
||||
if(input == targetNumber, "fertig!" println; break,
|
||||
if(numberOfGuesses == 0, "nicht die richtige!" println,
|
||||
if((targetNumber - input) abs < (targetNumber - lastGuess) abs, "hotter" println, "colder" println )
|
||||
)
|
||||
)
|
||||
|
||||
lastGuess = input
|
||||
numberOfGuesses = numberOfGuesses + 1
|
||||
)
|
||||
@ -1,3 +0,0 @@
|
||||
0 0
|
||||
0 20
|
||||
0 0
|
||||
@ -1,24 +0,0 @@
|
||||
/**/
|
||||
author(derfremde, camus).
|
||||
author(nineteeneightyfour, orwell).
|
||||
author(farmdertiere, orwell).
|
||||
author(diepest, camus).
|
||||
|
||||
% B1 Mülltonne
|
||||
uses(angriffstrupp, schlauch).
|
||||
uses(angriffstrupp, strahlrohr).
|
||||
uses(angriffstrupp, pressluftatmer).
|
||||
uses(angriffstrupp, funkgeraet).
|
||||
uses(angriffstrupp, lampe).
|
||||
uses(wassertrupp, schlauch).
|
||||
uses(wassertrupp, haspel).
|
||||
uses(wassertrupp, standrohr).
|
||||
uses(wassertrupp, hydrantenschluessel).
|
||||
uses(wassertrupp, rueckflussminderer).
|
||||
uses(wassertrupp, funkgeraet).
|
||||
uses(wassertrupp, lampe).
|
||||
|
||||
performs(angriffstrupp, brandbekaempfung).
|
||||
performs(angriffstrupp, menschenrettung).
|
||||
performs(wassertrupp, wasserversorgung).
|
||||
performs(wassertrupp, absperrung).
|
||||
@ -1,35 +0,0 @@
|
||||
/**/
|
||||
fib(0, [0]).
|
||||
fib(1, [1,0]).
|
||||
fib(N, [R, X, Y | Zs]) :-
|
||||
N > 1,
|
||||
N1 is N - 1,
|
||||
fib(N1, [X, Y | Zs]),
|
||||
R is X + Y.
|
||||
|
||||
% wrong naive impl
|
||||
reverse([], []).
|
||||
reverse([x], [x]).
|
||||
reverse([Head|Tail], [RNew, Head]) :-
|
||||
reverse(Tail, RNew).
|
||||
|
||||
accrev([H|T], Acc, R) :-
|
||||
accrev(T, [H|Acc], R).
|
||||
accrev([], R, R).
|
||||
|
||||
rev(L, R) :- accrev(L, [], R).
|
||||
|
||||
smol([S], S).
|
||||
smol([H|T], S) :-
|
||||
smol(T, Snew),
|
||||
Snew < H -> S is Snew; S is H.
|
||||
|
||||
% not working
|
||||
accsortt([], Acc, Acc).
|
||||
accsortt([H1 | T], Acc, R) :-
|
||||
H2 | T,
|
||||
H1 < H2
|
||||
-> accsortt(T, [H1, H2 | Acc], R);
|
||||
accsortt(T, [H2, H1 | Acc], R).
|
||||
|
||||
sortt(L, R) :- accsortt(L, [], R).
|
||||
107
prolog/day3.pl
107
prolog/day3.pl
@ -1,107 +0,0 @@
|
||||
/*
|
||||
* sudoku([5, 3, _, _, 7, _, _, _, _,
|
||||
* 6, _, _, 1, 9, 5, _, _, _,
|
||||
* _, 9, 8, _, _, _, _, 6, _,
|
||||
* 8, _, _, _, 6, _, _, _, 3,
|
||||
* 4, _, _, 8, _, 3, _, _, 1,
|
||||
* 7, _, _, _, 2, _, _, _, 6,
|
||||
* _, 6, _, _, _, _, 2, 8, _,
|
||||
* _, _, _, 4, 1, 9, _, _, 5,
|
||||
* _, _, _, _, 8, _, _, 7, 9
|
||||
* ], What).
|
||||
* sudoku([5, 3, _, _, 7, _, _, _, _, 6, _, _, 1, 9, 5, _, _, _, _, 9, 8, _, _, _, _, 6, _, 8, _, _, _, 6, _, _, _, 3, 4, _, _, 8, _, 3, _, _, 1, 7, _, _, _, 2, _, _, _, 6, _, 6, _, _, _, _, 2, 8, _, _, _, _, 4, 1, 9, _, _, 5, _, _, _, _, 8, _, _, 7, 9 ], What).
|
||||
* puzzle input from wikipedia
|
||||
* */
|
||||
:- use_module(library(clpfd)).
|
||||
|
||||
sudoku(Input, Solution) :-
|
||||
Solution = Input,
|
||||
Input = [ S11, S12, S13, S14, S15, S16, S17, S18, S19,
|
||||
S21, S22, S23, S24, S25, S26, S27, S28, S29,
|
||||
S31, S32, S33, S34, S35, S36, S37, S38, S39,
|
||||
S41, S42, S43, S44, S45, S46, S47, S48, S49,
|
||||
S51, S52, S53, S54, S55, S56, S57, S58, S59,
|
||||
S61, S62, S63, S64, S65, S66, S67, S68, S69,
|
||||
S71, S72, S73, S74, S75, S76, S77, S78, S79,
|
||||
S81, S82, S83, S84, S85, S86, S87, S88, S89,
|
||||
S91, S92, S93, S94, S95, S96, S97, S98, S99
|
||||
],
|
||||
|
||||
Solution ins 1..9,
|
||||
Row1 = [S11, S12, S13, S14, S15, S16, S17, S18, S19],
|
||||
Row2 = [S21, S22, S23, S24, S25, S26, S27, S28, S29],
|
||||
Row3 = [S31, S32, S33, S34, S35, S36, S37, S38, S39],
|
||||
Row4 = [S41, S42, S43, S44, S45, S46, S47, S48, S49],
|
||||
Row5 = [S51, S52, S53, S54, S55, S56, S57, S58, S59],
|
||||
Row6 = [S61, S62, S63, S64, S65, S66, S67, S68, S69],
|
||||
Row7 = [S71, S72, S73, S74, S75, S76, S77, S78, S79],
|
||||
Row8 = [S81, S82, S83, S84, S85, S86, S87, S88, S89],
|
||||
Row9 = [S91, S92, S93, S94, S95, S96, S97, S98, S99],
|
||||
Rows = [Row1, Row2, Row3, Row4, Row5, Row6, Row7, Row8, Row9],
|
||||
Col1 = [S11, S21, S31, S41, S51, S61, S71, S81, S91],
|
||||
Col2 = [S12, S22, S32, S42, S52, S62, S72, S82, S92],
|
||||
Col3 = [S13, S23, S33, S43, S53, S63, S73, S83, S93],
|
||||
Col4 = [S14, S24, S34, S44, S54, S64, S74, S84, S94],
|
||||
Col5 = [S15, S25, S35, S45, S55, S65, S75, S85, S95],
|
||||
Col6 = [S16, S26, S36, S46, S56, S66, S76, S86, S96],
|
||||
Col7 = [S17, S27, S37, S47, S57, S67, S77, S87, S97],
|
||||
Col8 = [S18, S28, S38, S48, S58, S68, S78, S88, S98],
|
||||
Col9 = [S19, S29, S39, S49, S59, S69, S79, S89, S99],
|
||||
Cols = [Col1, Col2, Col3, Col4, Col5, Col6, Col7, Col8, Col9],
|
||||
Sqr1 = [S11, S12, S13, S21, S22, S23, S31, S32, S33],
|
||||
Sqr2 = [S14, S15, S16, S24, S25, S26, S34, S35, S36],
|
||||
Sqr3 = [S17, S18, S19, S27, S28, S29, S37, S38, S39],
|
||||
Sqr4 = [S41, S42, S43, S51, S52, S53, S61, S62, S63],
|
||||
Sqr5 = [S44, S45, S46, S54, S55, S56, S64, S65, S66],
|
||||
Sqr6 = [S47, S48, S49, S57, S58, S59, S67, S68, S69],
|
||||
Sqr7 = [S71, S72, S73, S81, S82, S83, S91, S92, S93],
|
||||
Sqr8 = [S74, S75, S76, S84, S85, S86, S94, S95, S96],
|
||||
Sqr9 = [S77, S78, S79, S87, S88, S89, S97, S98, S99],
|
||||
Squares = [Sqr1, Sqr2, Sqr3, Sqr4, Sqr5, Sqr6, Sqr7, Sqr8, Sqr9],
|
||||
|
||||
valid(Squares),
|
||||
valid(Rows),
|
||||
valid(Cols),
|
||||
|
||||
show(Solution).
|
||||
|
||||
sudoku4(Input, Solution) :-
|
||||
Solution = Input,
|
||||
Input = [ S11, S12, S13, S14,
|
||||
S21, S22, S23, S24,
|
||||
S31, S32, S33, S34,
|
||||
S41, S42, S43, S44
|
||||
],
|
||||
Solution ins 1..4,
|
||||
Squares = [[S11, S12, S21, S22], [S13, S14, S23, S24], [S31, S32, S41, S42], [S33, S34, S43, S44]],
|
||||
Rows = [[S11, S12, S13, S14], [S21, S22, S23, S24], [S31, S32, S33, S34], [S41, S42, S43, S44]],
|
||||
Cols = [[S11, S21, S31, S41], [S12, S22, S32, S42], [S13, S23, S33, S43], [S14, S24, S34, S44]],
|
||||
valid(Squares),
|
||||
valid(Rows),
|
||||
valid(Cols).
|
||||
|
||||
valid([]).
|
||||
valid([H|T]) :-
|
||||
all_distinct(H),
|
||||
valid(T).
|
||||
|
||||
show([S1, S2, S3, S4, S5, S6, S7, S8, S9 | T]) :-
|
||||
write(S1),
|
||||
write(" | "),
|
||||
write(S2),
|
||||
write(" | "),
|
||||
write(S3),
|
||||
write(" | "),
|
||||
write(S4),
|
||||
write(" | "),
|
||||
write(S5),
|
||||
write(" | "),
|
||||
write(S6),
|
||||
write(" | "),
|
||||
write(S7),
|
||||
write(" | "),
|
||||
write(S8),
|
||||
write(" | "),
|
||||
write(S9),
|
||||
nl,
|
||||
show(T).
|
||||
@ -1 +0,0 @@
|
||||
blub#gluck
|
||||
@ -1,56 +0,0 @@
|
||||
object TicTacToe {
|
||||
val board = new Array[Char](9)
|
||||
var mark = 'X'
|
||||
|
||||
def tick(horizontal: String, vertical: String) {
|
||||
val x = horizontal match {
|
||||
case "left" => 0
|
||||
case "middle" => 1
|
||||
case "right" => 2
|
||||
case _ => 0
|
||||
}
|
||||
|
||||
val y = vertical match {
|
||||
case "up" => 0
|
||||
case "middle" => 3
|
||||
case "down" => 6
|
||||
case _ => 0
|
||||
}
|
||||
|
||||
val index = x + y
|
||||
if (board(index) == 'X' || board(index) == 'O') {
|
||||
println("Spot is already taken!")
|
||||
return
|
||||
}
|
||||
|
||||
board(index) = mark
|
||||
|
||||
isWinner('X')
|
||||
isWinner('O')
|
||||
|
||||
mark = mark match {
|
||||
case 'X' => 'O'
|
||||
case 'O' => 'X'
|
||||
case _ => 'c'
|
||||
}
|
||||
}
|
||||
|
||||
def isWinner(mark: Char) {
|
||||
if ((board(0) == mark && board(1) == mark && board(2) == mark) ||
|
||||
(board(3) == mark && board(4) == mark && board(5) == mark) ||
|
||||
(board(6) == mark && board(7) == mark && board(8) == mark) ||
|
||||
(board(0) == mark && board(3) == mark && board(6) == mark) ||
|
||||
(board(1) == mark && board(4) == mark && board(7) == mark) ||
|
||||
(board(2) == mark && board(5) == mark && board(8) == mark) ||
|
||||
(board(0) == mark && board(4) == mark && board(8) == mark) ||
|
||||
(board(2) == mark && board(4) == mark && board(6) == mark)) {
|
||||
println("Gewinner: " + mark)
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
TicTacToe.tick("left", "up")
|
||||
TicTacToe.tick("right", "up")
|
||||
TicTacToe.tick("left", "middle")
|
||||
TicTacToe.tick("middle", "middle")
|
||||
TicTacToe.tick("left", "down")
|
||||
@ -1,44 +0,0 @@
|
||||
import scala.io.Source
|
||||
|
||||
def getTotalSize(strings: List[String]): Int = {
|
||||
(0 /: strings) {(sum, string) => sum + string.size}
|
||||
}
|
||||
|
||||
val list = List("123", "345", "ABN")
|
||||
|
||||
val bla = getTotalSize(list)
|
||||
println(bla)
|
||||
|
||||
trait Censor {
|
||||
var corrections = Map("Shoot" -> "Pucky", "Darn" -> "Beans")
|
||||
|
||||
|
||||
def readCorrections() = {
|
||||
val filename = "corrections.txt"
|
||||
|
||||
for (line <- Source.fromFile(filename).getLines) {
|
||||
val splitted = line.split("#")
|
||||
corrections = corrections + (splitted(0) -> splitted(1))
|
||||
}
|
||||
}
|
||||
|
||||
def correct(input: String): String = {
|
||||
var output = input;
|
||||
|
||||
corrections.foreach((e: (String, String)) => output = e._1.r.replaceAllIn(output, e._2))
|
||||
|
||||
return output
|
||||
}
|
||||
}
|
||||
|
||||
class Corrector extends Censor {
|
||||
def say(input: String) = {
|
||||
val output = correct(input)
|
||||
println(output)
|
||||
}
|
||||
}
|
||||
|
||||
val hering = new Corrector()
|
||||
hering.readCorrections()
|
||||
hering.say("I'm a fish, blub blub")
|
||||
hering.say("Shoot Darn")
|
||||
@ -1,51 +0,0 @@
|
||||
// 2023 syntax of scala is too different to reproduce this example
|
||||
|
||||
import scala.io._
|
||||
import scala.actors._
|
||||
import Actor._
|
||||
|
||||
object PageLoader {
|
||||
def getPageSize(url: String) = Source.fromURL(url).mkString.length
|
||||
|
||||
def getCountOfLinks(url: String): int = {
|
||||
val raw = Source.fromURL(url).mkString
|
||||
|
||||
val count = "<a>".r.findAllIn(raw).length
|
||||
|
||||
return count
|
||||
}
|
||||
}
|
||||
|
||||
val urls = List("https://www.amazon.com/",
|
||||
"https://www.twitter.com/",
|
||||
"https://www.google.com/",
|
||||
"https://www.cnn.com/")
|
||||
|
||||
def timeMethod(method: () => Unit) = {
|
||||
val start = System.nanoTime
|
||||
method()
|
||||
val end = System.nanoTime
|
||||
|
||||
println("Method took " + (end - start)/1000000000.0 + " seconds.")
|
||||
}
|
||||
|
||||
def getPageSizeSequentially() = {
|
||||
for(url <- urls) {
|
||||
println("Size for " + url + ": " + PageLoader.getPageSize(url))
|
||||
}
|
||||
}
|
||||
|
||||
def getPageSizeConcurrrently() = {
|
||||
def caller = self
|
||||
|
||||
for(url <- urls) {
|
||||
actor { caller ! (url, PageLoader.getPageSize(url)) }
|
||||
}
|
||||
|
||||
for(i <- 1 to urls.size) {
|
||||
receive {
|
||||
case (url, size) =>
|
||||
println("Size for " + url + ": " + size)
|
||||
}
|
||||
}
|
||||
}
|
||||
Loading…
x
Reference in New Issue
Block a user