trackler 2.1.0.24 → 2.1.0.25

data/tracks/factor/LICENSE

@@ -1,6 +1,6 @@
-The MIT License (MIT)
+MIT License
 
-Copyright (c) 2016 Katrina Owen, _@kytrinyx.com
+Copyright (c) 2017 Exercism, Inc
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

data/tracks/fortran/.github/PULL_REQUEST_TEMPLATE.md

@@ -0,0 +1,23 @@
+Thank you for this PR! :tada:
+
+When we review your submission we will check the following:
+
+- [ ] TODO: Update this list based on the appropriate checks for this specific track
+- [ ] No trailing whitespace nor extraneous blank lines
+- [ ] Proper indentation and consistent code formatting
+- [ ] Free from spelling and grammatical errors
+- [ ] Readable code style
+- [ ] Exemplifies the idioms of {{LANGUAGE}}
+- [ ] Absence of non-standard libraries
+- [ ] No extraneous configuration files
+- [ ] Free of development/debug artifacts such as `puts`, `console.log`, or `debugger` calls
+
+If you are submitting a new exercise, we will compare your submission to the common guidelines set out for the exercise in [x-common](https://github.com/exercism/x-common/tree/master/exercises).
+
+Your submission will be run through a series of automated tests and checks. The outcome will be displayed below. In addition to the test suite, the following issues are automatically checked:
+
+- TODO: Update this list based on the linting available for this specific track
+- No trailing whitespace nor extraneous blank lines
+- Proper indentation and consistent code formatting
+- Spelling and grammatical errors
+- Compiler and deprecation warnings

data/tracks/fortran/.gitignore

@@ -0,0 +1,4 @@
+*.swp
+.DS_Store
+bin/configlet
+bin/configlet.exe

data/tracks/fortran/.travis.yml

@@ -0,0 +1,17 @@
+---
+language: c
+
+before_install:
+  - sudo apt-get install gfortran
+  - sudo apt-get install ruby-full
+  - sudo apt-get install rubygems
+
+install:
+  - sudo gem install funit
+
+script:
+  - make test
+  - bin/fetch-configlet
+  - bin/configlet .
+
+sudo: required

data/tracks/fortran/LICENSE

@@ -0,0 +1,21 @@
+MIT License
+
+Copyright (c) 2017 Exercism, Inc
+
+Permission is hereby granted, free of charge, to any person obtaining a copy
+of this software and associated documentation files (the "Software"), to deal
+in the Software without restriction, including without limitation the rights
+to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+copies of the Software, and to permit persons to whom the Software is
+furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all
+copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+SOFTWARE.

data/tracks/fortran/Makefile

@@ -0,0 +1,40 @@
+# assignments
+ASSIGNMENT ?= ""
+IGNOREDIRS := "^(\.git|bin|docs|exercises)$$"
+ASSIGNMENTS = $(shell find ./exercises -maxdepth 1 -mindepth 1 -type d | awk -F/ '{print $$NF}' | sort | grep -Ev $(IGNOREDIRS))
+
+# output directories
+TMPDIR ?= "/tmp"
+OUTDIR := $(shell mktemp -d "$(TMPDIR)/$(ASSIGNMENT).XXXXXXXXXX")
+
+# language specific config (tweakable per language)
+FILEEXT := "f90"
+TESTEXT := "fun"
+EXAMPLE := "example.$(FILEEXT)"
+TSTFILE := "$(ASSIGNMENT).$(TESTEXT)"
+
+# compiler flags
+export FSFLAG := "-I"
+export FC := "gfortran"
+export CXX := "g++"
+export CC := "gcc"
+
+default:
+	gem install funit
+
+help: ## Prints this help
+	@grep -E '^[a-zA-Z_-]+:.*?## .*$$' $(MAKEFILE_LIST) | awk 'BEGIN {FS = ":.*?## "}; {printf "\033[36m%-20s\033[0m %s\n", $$1, $$2}'
+
+install-test: ## install test dependency: funit
+	@gem install funit
+
+test-assignment: ## run single test using ASSIGNMENTS: test-assignment ASSIGNMENT=wordy
+	@echo "running tests for: $(ASSIGNMENT)"
+#	@cat ./exercises/$(ASSIGNMENT)/$(TSTFILE) | sed '/markTestSkipped()/d' > $(OUTDIR)/$(TSTFILE)
+	@cat ./exercises/$(ASSIGNMENT)/$(TSTFILE) > $(OUTDIR)/$(TSTFILE)
+	@cp ./exercises/$(ASSIGNMENT)/$(EXAMPLE) $(OUTDIR)/$(ASSIGNMENT).$(FILEEXT)
+	@cd $(OUTDIR) && funit
+
+test: ## run all tests
+	@for assignment in $(ASSIGNMENTS); do ASSIGNMENT=$$assignment $(MAKE) -s test-assignment || exit 1; done
+

data/tracks/fortran/README.md

@@ -0,0 +1,72 @@
+# Exercism Fortran Track
+
+[![Build Status](https://travis-ci.org/exercism/xfortran.svg?branch=master)](https://travis-ci.org/exercism/xfortran)
+
+Exercism exercises in Fortran.
+
+## Setup
+
+The simplest way to install Fortran is ...
+
+## Contributing
+
+Thank you so much for contributing! :tada:
+
+Please read about how to [get involved in a track](https://github.com/exercism/docs/tree/master/contributing-to-language-tracks). Be sure to read the Exercism [Code of Conduct](https://github.com/exercism/exercism.io/blob/master/CODE_OF_CONDUCT.md).
+
+We welcome pull requests of all kinds. No contribution is too small.
+
+We encourage contributions that provide fixes and improvements to existing exercises. Please note that this track's exercises must conform to the standards determined in the [exercism/x-common](https://github.com/exercism/x-common) repo. Changes to the tests or documentation of a common exercise will often warrant a PR in that repo before it can be incorporated into this track's exercises. If you're unsure, then go ahead and open a GitHub issue, and we'll discuss the change.
+
+## Exercise Tests ##
+
+At the most basic level, Exercism is all about the tests. They drive the user's implementation forward and tell them when the exercise is complete.
+
+The utmost care and attention should be used when adding or making changes to the tests for an exercise. When implementing an exercise test suite, we want to provide a good user experience for the people writing a solution to the exercise. People should not be confused or overwhelmed.
+
+We simulate Test-Driven Development (TDD) by implementing the tests in order of increasing complexity. We try to ensure that each test either
+
+- helps triangulate a solution to be more generic, or
+- requires new functionality incrementally.
+
+Test files should use the following format:
+
+```
+# include the body of an example test
+```
+
+## Submitting a Pull Request ##
+
+Please keep the following in mind:
+
+- Pull requests should be focused on a single exercise, issue, or change.
+
+- We welcome changes to code style, and wording. Please open a separate PR for these changes if possible.
+
+- Please open an issue before creating a PR that makes significant (breaking) changes to an existing exercise or makes changes across many exercises. It is best to discuss these changes before doing the work. Discussions related to exercises that are not track specific can be found in [exercism/discussions](https://github.com/exercism/discussions/issues).
+
+- Follow the coding standards for Fortran. (If there is a formatter for the track's language, add instructions for using it here.)
+
+- Watch out for trailing spaces, extra blank lines, and spaces in blank lines.
+
+- All the tests for Fortran exercises can be run from the top level of the repo with ... Please run this command before submitting your PR.
+
+## Contributing a New Exercise ##
+
+- All Exercism exercises must be defined in [x-common](https://github.com/exercism/x-common/tree/master/exercises) before they are implemented for a specific track. Please submit a PR there if your exercise is new to Exercism.
+
+- Please make sure the new exercise conforms to specifications in the [exercism/x-common](https://github.com/exercism/x-common) repo.
+
+- Each exercise must stand on its own. Do not reference files outside the exercise directory. They will not be included when the user fetches the exercise.
+
+- Exercises should use only the Fortran core libraries.
+
+- Please do not add a README or README.md file to the exercise directory. The READMEs are constructed using shared metadata, which lives in the
+[exercism/x-common](https://github.com/exercism/x-common) repository. Further explanation can be found in [fixing-exercise-readmes](https://github.com/exercism/exercism.io/blob/master/docs/fixing-exercise-readmes.md)
+
+- Each exercise should have a test suite, an example solution, a template file for the real implementation and ... (anything else that needs to go with each exercise for this track). The CI build expects files to be named using the following convention: (describe the Fortran convention for naming the various files that make up an exercise).
+
+- Please do not commit any configuration files or directories inside the exercise other than ...
+
+- Be sure to add it to the appropriate place in the `config.json` file. Also, please run `bin/fetch-configlet && bin/configlet` to ensure the exercise is configured correctly.
+

data/tracks/fortran/bin/fetch-configlet

@@ -0,0 +1,32 @@
+#!/bin/bash
+
+LATEST=https://github.com/exercism/configlet/releases/latest
+
+OS=$(
+case $(uname) in
+    (Darwin*)
+        echo "mac";;
+    (Linux*)
+        echo "linux";;
+    (Windows*)
+        echo "windows";;
+    (*)
+        echo "linux";;
+esac)
+
+ARCH=$(
+case $(uname -m) in
+    (*64*)
+        echo 64bit;;
+    (*686*)
+        echo 32bit;;
+    (*386*)
+        echo 32bit;;
+    (*)
+        echo 64bit;;
+esac)
+
+VERSION="$(curl --head --silent $LATEST | awk -v FS=/ '/Location:/{print $NF}' | tr -d '\r')"
+URL=https://github.com/exercism/configlet/releases/download/$VERSION/configlet-$OS-${ARCH}.tgz
+
+curl -s --location $URL | tar xz -C bin/

data/tracks/fortran/config.json

@@ -0,0 +1,32 @@
+{
+  "slug": "fortran",
+  "language": "Fortran",
+  "repository": "https://github.com/exercism/xfortran",
+  "active": false,
+  "test_pattern": "TODO",
+  "exercises": [
+  {
+      "slug": "hello_world",
+      "difficulty": 1,
+      "topics": [
+      ]
+  },
+  {
+      "slug": "bob",
+      "difficulty": 1,
+      "topics": [
+      ]
+  }
+  ],
+  "deprecated": [
+
+  ],
+  "ignored": [
+    "bin",
+    "img",
+    "docs"
+  ],
+  "foregone": [
+
+  ]
+}

data/tracks/fortran/exercises/bob/bob.fun

@@ -0,0 +1,114 @@
+test_suite bob
+  character(100) :: multi_line_string
+
+setup
+end setup
+
+function random_string(length, begin_char, end_char)
+  integer :: length, r, i
+  character(length) :: random_string
+  logical :: uppercase
+  integer :: base, ending
+  character :: begin_char, end_char
+
+  base = ichar(begin_char)
+  ending = ichar(end_char)
+
+  do i = 1,length
+    r = rand(0)*(ending-base)
+    random_string(i:i) = char(base + r)
+  end do
+end function random_string
+
+function random_shouting(length)
+  integer :: length
+  character(length) :: random_shouting
+  random_shouting = random_string(length-1, 'A', 'Z')
+  random_shouting(length:length) = '!'
+end function random_shouting
+
+function random_question(length)
+  integer :: length
+  character(length) :: random_question
+  random_question = random_string(length-1, 'a', 'z')
+  random_question(length:length) = '?'
+end function random_question
+
+test stating_something
+  assert_equal( 'Whatever.' , hey('Tom-ay-to, tomaaaah-to.') )
+end test
+
+test shouting
+  assert_equal( 'Whoa chill out!' , hey('WATCH OUT!') )
+end test
+
+test shouting_gibberish
+  assert_equal( 'Whoa chill out!' , hey(random_shouting(11)) )
+end test
+
+test asking_a_question
+  assert_equal( 'Sure.' , hey('Does this cryogenic chamber make me look fat?') )
+end test
+
+test asking_a_numeric_question
+  assert_equal( 'Sure.' , hey('You are, what, like 15?') )
+end test
+
+test asking_gibberish
+  assert_equal( 'Sure.' , hey(random_question(11)) )
+end test
+
+test talking_forcefully
+  assert_equal( 'Whatever.' , hey('Lets''s go make out behind the gym!') )
+end test
+
+test using_acronyms_in_regular_speech
+  assert_equal( 'Whatever.' , hey('It''s OK if you don''t want to go to the DMV.') )
+end test
+
+test forceful_questions
+  assert_equal( 'Whoa chill out!' , hey('WHAT THE HELL WHERE YOU THINKING?') )
+end test
+
+test shouting_numbers
+  assert_equal( 'Whoa chill out!' , hey('1, 2, 3, GO!') )
+end test
+
+test only_numbers
+  assert_equal( 'Whatever.' , hey('1, 2, 3') )
+end test
+
+test questions_with_only_numbers
+  assert_equal( 'Sure.' , hey('4?') )
+end test
+
+test shouting_with_special_characters
+  assert_equal( 'Whoa chill out!' , hey('ZOMG THE %^*@#$(*^ ZOMBIES ARE COMING!!11!!1!') )
+end test
+
+test shouting_with_no_exclamation_mark
+  assert_equal( 'Whoa chill out!' , hey('I HATE YOU') )
+end test
+
+test statement_containing_exclamation_mark
+  assert_equal( 'Whatever.' , hey('Ending with ? means a question.') )
+end test
+
+test prattling_on
+  assert_equal( 'Sure.' , hey('Wait! Hang on. Are you going to ge OK?') )
+end test
+
+test silence
+  assert_equal( 'Fine. Be that way!' , hey('') )
+end test
+
+test prolonged_silence
+  assert_equal( 'Fine. Be that way!' , hey('     ') )
+end test
+
+test on_multiple_line_questions
+  multi_line_string = ''//NEW_LINE('A')//'Does this cryogenic chamber make me look fat?'//NEW_LINE('A')//'no'
+  assert_equal( 'Whatever.' , hey(multi_line_string) )
+end test
+
+end test_suite

data/tracks/fortran/exercises/bob/example.f90

@@ -0,0 +1,61 @@
+module bob
+contains
+  function is_uppercase(str)
+    logical :: is_uppercase
+    character(*) :: str
+    character :: chr
+
+    is_uppercase = .FALSE.
+
+    do i = 1,len(str)
+      chr = str(i:i)
+      if (chr >= 'a' .AND. chr <= 'z') then
+          is_uppercase = .FALSE.
+          return
+      else if (chr >= 'A' .AND. chr <= 'Z') then
+          is_uppercase = .TRUE.
+      end if
+
+    end do
+  end function is_uppercase
+
+  function is_question(str)
+    logical :: is_question
+    character(*) :: str
+    character :: chr
+
+    chr = str(len(str):len(str))
+    is_question = (chr .EQ. '?')
+  end function is_question
+
+  function is_blank(str)
+    logical :: is_blank
+    character(*) :: str
+    integer :: i
+    is_blank = .TRUE.
+
+    do i = 1,len(str)
+      if ( str(i:i) .NE. ' ' ) then
+        is_blank = .FALSE.
+        return
+      end if
+    end do
+
+  end function is_blank
+
+  function hey(statement)
+    character(100) :: hey
+    character(*) :: statement
+
+    if ( is_uppercase(statement) ) then
+      hey = 'Whoa chill out!'
+    else if ( is_question(statement) ) then
+      hey = 'Sure.'
+    else if ( is_blank(statement) ) then
+      hey = 'Fine. Be that way!'
+    else
+      hey = 'Whatever.'
+    end if
+
+  end function hey
+end module bob