From 7311b621da942fd1d27a00176b3bc19d3f278b65 Mon Sep 17 00:00:00 2001 From: FP10 Uebungsteilnehmer 0726236 Date: Sun, 17 Oct 2010 18:29:59 +0200 Subject: [PATCH] 17.10. --- .bash_logout | 7 ++++ .bashrc | 99 +++++++++++++++++++++++++++++++++++++++++++++++++++ .daten | 2 ++ .forward | 3 ++ .profile | 22 ++++++++++++ Aufgabe1.hs | 35 ++++++++++++++++++ Aufgabe2.hs | 2 ++ GRUPPENNUMMER | 1 + TUTOR | 1 + 9 files changed, 172 insertions(+) create mode 100644 .bash_logout create mode 100644 .bashrc create mode 100644 .daten create mode 100644 .forward create mode 100644 .profile create mode 100644 Aufgabe1.hs create mode 100644 Aufgabe2.hs create mode 100644 GRUPPENNUMMER create mode 100644 TUTOR diff --git a/.bash_logout b/.bash_logout new file mode 100644 index 0000000..de4f5f7 --- /dev/null +++ b/.bash_logout @@ -0,0 +1,7 @@ +# ~/.bash_logout: executed by bash(1) when login shell exits. + +# when leaving the console clear the screen to increase privacy + +if [ "$SHLVL" = 1 ]; then + [ -x /usr/bin/clear_console ] && /usr/bin/clear_console -q +fi diff --git a/.bashrc b/.bashrc new file mode 100644 index 0000000..be2c73d --- /dev/null +++ b/.bashrc @@ -0,0 +1,99 @@ +# ~/.bashrc: executed by bash(1) for non-login shells. +# see /usr/share/doc/bash/examples/startup-files (in the package bash-doc) +# for examples + +# If not running interactively, don't do anything +[ -z "$PS1" ] && return + +# don't put duplicate lines in the history. See bash(1) for more options +# don't overwrite GNU Midnight Commander's setting of `ignorespace'. +export HISTCONTROL=$HISTCONTROL${HISTCONTROL+,}ignoredups +# ... or force ignoredups and ignorespace +export HISTCONTROL=ignoreboth + +# append to the history file, don't overwrite it +shopt -s histappend + +# for setting history length see HISTSIZE and HISTFILESIZE in bash(1) + +# check the window size after each command and, if necessary, +# update the values of LINES and COLUMNS. +shopt -s checkwinsize + +# make less more friendly for non-text input files, see lesspipe(1) +#[ -x /usr/bin/lesspipe ] && eval "$(SHELL=/bin/sh lesspipe)" + +# set variable identifying the chroot you work in (used in the prompt below) +if [ -z "$debian_chroot" ] && [ -r /etc/debian_chroot ]; then + debian_chroot=$(cat /etc/debian_chroot) +fi + +# set a fancy prompt (non-color, unless we know we "want" color) +case "$TERM" in + xterm-color) color_prompt=yes;; +esac + +# uncomment for a colored prompt, if the terminal has the capability; turned +# off by default to not distract the user: the focus in a terminal window +# should be on the output of commands, not on the prompt +#force_color_prompt=yes + +if [ -n "$force_color_prompt" ]; then + if [ -x /usr/bin/tput ] && tput setaf 1 >&/dev/null; then + # We have color support; assume it's compliant with Ecma-48 + # (ISO/IEC-6429). (Lack of such support is extremely rare, and such + # a case would tend to support setf rather than setaf.) + color_prompt=yes + else + color_prompt= + fi +fi + +if [ "$color_prompt" = yes ]; then + PS1='${debian_chroot:+($debian_chroot)}\[\033[01;32m\]\u@\h\[\033[00m\]:\[\033[01;34m\]\w\[\033[00m\]\$ ' +else + PS1='${debian_chroot:+($debian_chroot)}\u@\h:\w\$ ' +fi +unset color_prompt force_color_prompt + +# If this is an xterm set the title to user@host:dir +case "$TERM" in +xterm*|rxvt*) + PS1="\[\e]0;${debian_chroot:+($debian_chroot)}\u@\h: \w\a\]$PS1" + ;; +*) + ;; +esac + +# Alias definitions. +# You may want to put all your additions into a separate file like +# ~/.bash_aliases, instead of adding them here directly. +# See /usr/share/doc/bash-doc/examples in the bash-doc package. + +#if [ -f ~/.bash_aliases ]; then +# . ~/.bash_aliases +#fi + +# enable color support of ls and also add handy aliases +if [ -x /usr/bin/dircolors ]; then + eval "`dircolors -b`" + alias ls='ls --color=auto' + #alias dir='dir --color=auto' + #alias vdir='vdir --color=auto' + + #alias grep='grep --color=auto' + #alias fgrep='fgrep --color=auto' + #alias egrep='egrep --color=auto' +fi + +# some more ls aliases +#alias ll='ls -l' +#alias la='ls -A' +#alias l='ls -CF' + +# enable programmable completion features (you don't need to enable +# this, if it's already enabled in /etc/bash.bashrc and /etc/profile +# sources /etc/bash.bashrc). +if [ -f /etc/bash_completion ]; then + . /etc/bash_completion +fi diff --git a/.daten b/.daten new file mode 100644 index 0000000..90b7622 --- /dev/null +++ b/.daten @@ -0,0 +1,2 @@ +0726236 +0725188 diff --git a/.forward b/.forward new file mode 100644 index 0000000..a56815b --- /dev/null +++ b/.forward @@ -0,0 +1,3 @@ +\fp110 +f0726236 +f0725188 diff --git a/.profile b/.profile new file mode 100644 index 0000000..c9db459 --- /dev/null +++ b/.profile @@ -0,0 +1,22 @@ +# ~/.profile: executed by the command interpreter for login shells. +# This file is not read by bash(1), if ~/.bash_profile or ~/.bash_login +# exists. +# see /usr/share/doc/bash/examples/startup-files for examples. +# the files are located in the bash-doc package. + +# the default umask is set in /etc/profile; for setting the umask +# for ssh logins, install and configure the libpam-umask package. +#umask 022 + +# if running bash +if [ -n "$BASH_VERSION" ]; then + # include .bashrc if it exists + if [ -f "$HOME/.bashrc" ]; then + . "$HOME/.bashrc" + fi +fi + +# set PATH so it includes user's private bin if it exists +if [ -d "$HOME/bin" ] ; then + PATH="$HOME/bin:$PATH" +fi diff --git a/Aufgabe1.hs b/Aufgabe1.hs new file mode 100644 index 0000000..c756f18 --- /dev/null +++ b/Aufgabe1.hs @@ -0,0 +1,35 @@ +-- bsp 1.1 +convert :: Integer -> [Integer] +convert x = [ toInteger (fromEnum x - 48 ) | x <- (show (abs x)) ] + + +-- bsp 1.2 +quersumme :: Integer -> Integer +quersumme x = sum (convert x) + + +-- bsp 1.3 +dreiTeilbar :: Integer -> Bool +--dreiTeilbar 3 = True +--dreiTeilbar 2 = False +--dreiTeilbar 1 = True +--dreiTeilbar 0 = False +--dreiTeilbar x = dreiTeilbar (div (quersumme x) 3) +dreiTeilbar x = mod (quersumme x) 3 == 0 + + +-- bsp 1.4 +sechsTeilbar :: Integer -> Bool +sechsTeilbar x = ( (mod x 2 == 0 ) && (mod x 3 == 0 )) +--sechsTeilbar _ = False + + +-- bsp 1.5 +elfTeilbar :: Integer -> Bool +elfTeilbar x = (mod (sum (komisch (reverse (convert x)))) 11) == 0 +--elfTeilbar _ = False + +komisch :: [Integer] -> [Integer] +komisch (x:y:xs) = x:(-y):(komisch xs) +komisch (x:xs) = x:[] +komisch [] = [] diff --git a/Aufgabe2.hs b/Aufgabe2.hs new file mode 100644 index 0000000..884a3f6 --- /dev/null +++ b/Aufgabe2.hs @@ -0,0 +1,2 @@ +-- + diff --git a/GRUPPENNUMMER b/GRUPPENNUMMER new file mode 100644 index 0000000..bc6298e --- /dev/null +++ b/GRUPPENNUMMER @@ -0,0 +1 @@ +110 diff --git a/TUTOR b/TUTOR new file mode 100644 index 0000000..621e94f --- /dev/null +++ b/TUTOR @@ -0,0 +1 @@ +none -- 2.43.0