RosettaCode Sammelthread

**minx**

Sammelthread zum RosettaCode Wiki.

Foruminterne Infos zu RC
Bereits implementierte Aufgaben
Aufgaben, die eine dringende Überarbeitung brauchen
Nicht-implementierte Aufgaben

Was hier gepostet werden kann:

Neu implementierte Beispiele
Überarbeitete Beispiele

Wir sollten hier vor allem bei neu geschriebenen Beispielen diskutieren, ob diese perfekt sind und sie falls nötig verbessern. Danach können wir sie ins Wiki stellen

Ich beginne mal:

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Arithmetic/Integer
Beteiligte: minx
Script:

Spoiler anzeigen

[autoit]

$iA = InputBox("Integer Arithmetic", "a?")
$iB = InputBox("Integer Arithmetic", "b?")

[/autoit] [autoit][/autoit] [autoit]

MsgBox(0, "Integer Arithmetic", "Results are:" & @CRLF & _
"a + b = " & $iA + $iB & @CRLF & _
"a - b = " & $iA - $iB & @CRLF & _
"a * b = " & $iA * $iB & @CRLF & _
"a / b = " & Floor($iA / $iB) & ", remainder is " & Mod($iA, $iB))
;

[/autoit]

BinDannMalWeg

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Create_a_file
Beteiligte: Christoph54
Script:

Spoiler anzeigen

[autoit]

; workingdir:
FileWrite("output.txt", "")
DirCreate("docs")
; filesystem root:
FileWrite(@HomeDrive & "\output.txt", "")
DirCreate(@HomeDrive & "\docs\")

[/autoit]

James · AutoIt Version (Prod): 3.3.14.2

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Ackermann_function
Beteiligte: James1337
Skript:

Spoiler anzeigen

[autoit]

Func A($m, $n)
If ($m = 0) Then
Return $n + 1
ElseIf ($m > 0) And ($n = 0) Then
Return A($m - 1, 1)
ElseIf ($m > 0) And ($n > 0) Then
Return A($m - 1, A($m, $n - 1))
EndIf
EndFunc

[/autoit]

**minx**

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Include_a_file
Beteiligte: minx
Skript:

Spoiler anzeigen

[autoit]

#include <WindowsConstants.au3>

[/autoit]

PainTain

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Repeat_a_string
Beteiligte: PainTain
Skript:

Spoiler anzeigen

[autoit]
$sString = InputBox("RepeatString Example", "This string will be repeated 5 times!")
MsgBox(0, "_RepeatString Example", "Result: " & RepeatString($sString, 5))
[/autoit] [autoit][/autoit] [autoit]
Func RepeatString($sString, $iHowOften) ;// Ich weiß, gibst schon in der String.au3 - UDF
Local $sResult = ""
For $i = 1 To $iHowOften
$sResult &= $sString
Next
Return $sResult
EndFunc
[/autoit]

Spoiler anzeigen

[autoit]

#include <String.au3>

[/autoit] [autoit][/autoit] [autoit]

$sString = InputBox("_StringRepeat Example", "This string will be repeated 5 times!")
MsgBox(0, "_StringRepeat Example", "Result: " & _StringRepeat($sString, 5))

[/autoit]

**minx**

PainTain

Ich finde, Standard UDFs sollten benutzt werden. Immerhin gehören sie ja zum Funktionsumfang der Sprache (siehe andere AutoIt-Beispiele).

PainTain

Zitat von minx

PainTain

Ich finde, Standard UDFs sollten benutzt werden. Immerhin gehören sie ja zum Funktionsumfang der Sprache (siehe andere AutoIt-Beispiele).

Okay habs umgeschrieben

Mfg

James · AutoIt Version (Prod): 3.3.14.2

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Bitwise_operations
Beteiligte: James1337
Skript:

Spoiler anzeigen

[autoit]

$a = 666
$b = 42

[/autoit] [autoit][/autoit] [autoit]

ConsoleWrite($a & " and " & $b & " = " & BitAND($a, $b) & @CRLF)
ConsoleWrite($a & " or " & $b & " = " & BitOR($a, $b) & @CRLF)
ConsoleWrite($a & " xor " & $b & " = " & BitXOR($a, $b) & @CRLF)
ConsoleWrite("not " & $a & " = " & BitNOT($a) & @CRLF)
ConsoleWrite($a & " << " & $b & " = " & BitShift($a, -$b) & @CRLF) ; negative numbers shift left
ConsoleWrite($a & " >> " & $b & " = " & BitShift($a, $b) & @CRLF)
ConsoleWrite($a & " <<< " & $b & " = " & BitRotate($a, $b) & @CRLF)
ConsoleWrite($a & " >>> " & $b & " = " & BitRotate($a, -$b) & @CRLF) ; negative numbers rotate right

[/autoit]

James · AutoIt Version (Prod): 3.3.14.2

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Hofstadter_Q_sequence
Beteiligte: James1337
Skript:

Spoiler anzeigen

[autoit]

For $n = 1 To 10
ConsoleWrite("Q(" & $n & ") = " & Q($n) & @CRLF)
Next
ConsoleWrite("Q(1000) = " & Q(1000) & @CRLF)

[/autoit] [autoit][/autoit] [autoit]

Func Q($n)
If ($n = 1) Or ($n = 2) Then
Return 1
EndIf
Return Q($n - Q($n - 1)) + Q($n - Q($n - 2))
EndFunc

[/autoit]

Problem(e): Ich musste das Skript abbrechen: >Exit code: 1 Time: 1468.340

BinDannMalWeg

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Echo_server
Beteiligte: Christoph54
Skript:

Spoiler anzeigen

[autoit]

Global $hMainSocket, $hNewSocket, $iMaxClients = 100, $iCurrentCLients = 0, $aClients[$iMaxClients], $sBuffer
OnAutoItExitRegister("_ShutdownServer")
TCPStartup()

[/autoit] [autoit][/autoit] [autoit]

$hMainSocket = TCPListen("127.0.0.1", 12321)
If @error Then Exit
ConsoleWrite("Mainsocket: " & $hMainSocket & @LF)

[/autoit] [autoit][/autoit] [autoit]

While True
$hNewSocket = TCPAccept($hMainSocket)
If $hNewSocket > 0 And $iCurrentCLients < $iMaxClients Then _AddClient($hNewSocket)

[/autoit] [autoit][/autoit] [autoit]

For $i = 0 To $iMaxClients - 1
If $aClients[$i] Then
$sBuffer &= TCPRecv($aClients[$i], 2048)
If @error Then _DelClient($i)
EndIf
Next

[/autoit] [autoit][/autoit] [autoit]

If $sBuffer <> "" Then _ExecuteBuffer()
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func _AddClient($hSocket)
For $i = 0 To $iMaxClients - 1
If Not $aClients[$i] Then
$aClients[$i] = $hSocket
ConsoleWrite("new client with socket " & $hSocket & @LF)
$iCurrentCLients += 1
Return 1
EndIf
Next
TCPCloseSocket($hSocket)
Return 0
EndFunc ;==>_AddClient

[/autoit] [autoit][/autoit] [autoit]

Func _DelClient($iNumber)
$iCurrentCLients -= 1
TCPCloseSocket($aClients[$iNumber])
$aClients[$iNumber] = False
ConsoleWrite("client on slot " & $iNumber & " disconnected" & @LF)
EndFunc ;==>_DelClient

[/autoit] [autoit][/autoit] [autoit]

Func _ExecuteBuffer()
Local $aPakets = StringRegExp($sBuffer, "(.+)(?:\n|\r)", 3)
If Not IsArray($aPakets) Then Return 0
For $a = 0 To UBound($aPakets) - 1
For $i = 0 To $iMaxClients - 1
If $aClients[$i] Then TCPSend($aClients[$i], $aPakets[$a] & @LF)
Next
Next
$sBuffer = ""
Return UBound($aPakets)
EndFunc ;==>_ExecuteBuffer

[/autoit] [autoit][/autoit] [autoit]

Func _ShutdownServer()
For $i = 0 To $iMaxClients - 1
If $aClients[$i] Then TCPCloseSocket($aClients[$i])
Next
TCPCloseSocket($hMainSocket)
TCPShutdown()
Exit
EndFunc ;==>_ShutdownServer

[/autoit]

Gibts nen Freiwilligen der meine Snippets, wenn sie okay sind hochläd?

James · AutoIt Version (Prod): 3.3.14.2

Zitat von Christoph54

Gibts nen Freiwilligen der meine Snippets, wenn sie okay sind hochläd?

Ja, kann ich machen.
//Edit: Immer diese vorschnellen Entscheidungen...

**minx**

Du kannst ja gleich alle hochladen. Oder wir teilen uns da auf

PainTain

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Delete_a_file
Beteiligte: PainTain
Skript:

Spoiler anzeigen

[autoit]

#RequireAdmin
;# Workingdir
FileDelete(@WorkingDir & "\input.txt")
DirRemove(@WorkingDir & "\docs\")
;# Rootdir
FileDelete(@HomeDrive & "\input.txt")
DirRemove(@HomeDrive & "\docs\")

[/autoit]

Mfg

P.S. BinDannMalWeg: Dein Create_a_File - Skript benötigt ein '#RequireAdmin' unter Vista/7 um auf '@HomeDrive' zu schreiben

BinDannMalWeg

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Loops/Do-while
Beteiligte: Christoph54
Skript:

Spoiler anzeigen

[autoit]

Local $a = 0
Do
$a += 1
Until Not (Mod($a, 6) = 0)

[/autoit]

PainTain

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/File_size
Beteiligte: PainTain
Skript:

Spoiler anzeigen

[autoit]

;# Workingdir
$sSizeWorkingDir = FileGetSize(@WorkingDir & "\input.txt")
;# Rootdir
$sSizeRootDir = FileGetSize(@HomeDrive & "\input.txt")
;# Output
MsgBox(0, "Result", "Size of 'input.txt' at working dir: " & $sSizeWorkingDir & @CRLF & "Size of 'input.txt' at root dir: " & $sSizeRootDir)

[/autoit]

Noch eins

BinDannMalWeg

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Loops/Break
Beteiligte: Christoph54
Skript:

Spoiler anzeigen

[autoit]

While True
$a = Random(0, 19, 1)
ConsoleWrite($a & @LF)
If $a = 10 Then ExitLoop
ConsoleWrite(Random(0, 19, 1) & @LF)
WEnd

[/autoit]

BinDannMalWeg

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Loops/Downward_for
Beteiligte: Christoph54
Skript:

Spoiler anzeigen

[autoit]

For $i = 10 To 0 Step -1
ConsoleWrite($i & @LF)
Next

[/autoit]

BinDannMalWeg

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Loops/For
Beteiligte: Christoph54
Skript:

Spoiler anzeigen

[autoit]

For $a = 1 To 5
For $b = 1 To $a
ConsoleWrite("*")
Next
ConsoleWrite(@LF)
Next

[/autoit]

BinDannMalWeg

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Loops/For_with_a_specified_step
Beteiligte: Christoph54
Skript:

Spoiler anzeigen

[autoit]

For $a = 1 To 20 Step +2
ConsoleWrite($a & @LF)
Next

[/autoit]

PainTain

Art: Neu-Implementierung
Task: http://rosettacode.org/wiki/Read_a_file_line_by_line
Beteiligte: PainTain
Skript:

Spoiler anzeigen

[autoit]

#include <File.au3>

[/autoit] [autoit][/autoit] [autoit]

$hFile = FileOpen("input.txt")
For $i = 1 To _FileCountLines("input.txt")
ConsoleWrite(FileReadLine($hFile, $i))
Next

[/autoit]